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Chip- 


Tourismus 


Das komplizierte Zusammenwir- 
ken der verschiedenen Kompo- 
nenten eines Microcomputers ist 
nicht ganz leicht zu verstehen. 
Eine Platinen-,„Rundreise“ soll die 
Funktion der einzelnen Bauteile 
und ihr Wechselspiel erklären. 


U: dem Mikroskop sind auf einem Mi- 
croprozessorchip typische Strukturen zu 
erkennen: Die internen Register erscheinen 
als charakteristische Gitterfelder, die Logik- 
gatter als unregelmäßig gemusterte Bereiche, 
und die quadratischen Metallplättchen am 
Rande sind für die Kontaktierung, also die Ver- 
bindung mit der Außenwelt zuständig. Außer- 
dem fallen Gruppen paralleler Leitungen auf, 
die der internen Kommunikation zwischen den 
Funktionselementen dienen. 

Jede CPU-Anweisung setzt eine ganze Kette 


Micro- 
Architektur 


N) Datenregi- | 


Externer & en 
ster 


Datenbus 


EI EO 


Externer 4 
Steuerbus 


Takt 


Extemer@ 
Adreßbus % 


Akkumula- Zwischen- 
tor (A) register (T) 


'/ zeigt stark 

| vergrößert 

/7f den Zilog-Pro- 

/ zessor 280. Die 
circa 25 inter- 

/ nen Register sind 
als rechtwinklige 

Gittermuster zu 

erkennen. Längs 

des Randes befin- 

den sich 40 Kontak- 

' tierungsflächen 


'&/ für die Busanschlüsse. 
u] Sie werden später 
/ über dünne Drähte mit 


”/ dem Kunststoffgehäuse 


von elektronischen Elementarschritten in 
Gang, die jenseits der Software-Zuständigkeit 
ablaufen. Zur Illustration wollen wir beschrei- 
ben, wie auf einen ADD-Befehl hin die Addi- 
tion einer Zahl zum Akkumulatorinhalt mit 
Rückschreiben der Summe abläuft. 

Das untenstehende Diagramm zeigt in ver- 
einfachter Form die typische CPU-Acchitektur. 
Alle Register kommunizieren über einen inter- 
nen Datenbus und hängen außerdem zur Syn- 
chronisation des Datenverkehrs über Steuer- 
leitungen an einer zentralen Steuerlogik. 


% 


ehe 
A 


Status- 
register 


EO El 


Steuer- 
einheit 


Befehls- 
register (I) 


EI EO EOC 


verbunden, das dann 
auf die Leiterplatte 
gesteckt wird. 


Die Abbildung veran- 
schaulicht den Aufbau 
eines typischen 8-Bit- 
Prozessors. Die Funk- 
tionsgruppen kommuni- 
zieren miteinander über 
interne Datenbus- und 
Steuerleitungen. Über 
Steuersignale und den 
externen Daten- und 
Adreßbus hat die CPU 
Verbindung mit dem 
Arbeitsspeicher und 
der Peripherie. 


Befehlszäh- | 
ler (PC) 


EO +1 EI EOA 


Interne 
Steuer- 
signale 


1877 


Für den ADD-Befehl 
muß in den Schritten 3 
und 7 des Befehlszy- 
klus das Steuersignal 
„Enable Output“ (EO) 
an das Datenregister 
(M) gesendet werden. 
Diese Gatter verknüp- 
fen die Leitungen C2 
und C3 des Takt-Deco- 
ders so mit dem Be- 
fehlsdekoder-Ausgang 
1206, daß zum richtigen 
Zeitpunkt das EO- 
Signal am M-Register 
ansteht. 


Zu Befehl! 


Die Steuereinheit ver- 
fügt über ein Zählre- 
gister, das die Im- 
pulse des externen 
Taktgebers auflaufen 
läßt, und über je einen 
Decoder für die Ent- 
schlüsselung der Bit- 
muster im Taktzähler 
und im Befehlsregi- 
ster. In der Micropro- 
gramm-Logik sind für 
jeden Befehl zur Aus- 
führung in Elementar- 
schritten individuelle 
Gatterschaltungen 
vorgesehen, die wäh- 
rend des Fetch-Exe- 
cute-Zyklus in der 
richtigen Reihenfolge 
die nötigen Steuer- 
signale bereitstellen. 
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Der erwähnte ADD-Befehl steht vorerst in 
mehreren aufeinanderfolgenden Bytes inner- 
halb eines längeren Programms im Speicher 
des Rechners. Das erste Byte enthält dabei 
den Operationsteil, das zweite die zu addie- 
rende Zahl. Der Prozessor ruft nun zunächst 
das Byte mit dem Opcode aus dem Arbeits- 
speicher ins Befehlsregister ab („Fetch“-Zy- 
klus) und führt dann die Anweisung aus („Ex- 
ecute"-Zyklus). Die Adresse des Befehlsbytes 
steht schon vorher im Befehiszähler (Pro- 
gramm Counter = PC) bereit. Beim Fetch-Ex- 
ecute-Zyklus ist von besonderem Interesse, 
wie die Steuereinheit den Datenaustausch zwi- 
schen den Registern organisiert — das jewei- 
lige Register muß im richtigen Moment ein 
Freigabe(Enable)-Signal bekommen. Für 
diese Signale sind folgende Abkürzungen- 
zweckmäßig: 

EI (= Enable Input) gibt ein Register für das 
Beschreiben vom internen Datenbus aus frei, 
EO (= Enable Output) veranlaßt das Auslesen 
eines Registers auf den Datenbus, 

EOC (= EO to Control Unit) bewirkt die Aus- 
gabe des Registerinhalts an die Steuerlogik, 
EOA (=EO to Address Bus) das Auslesen des 
Registers auf den Adreßbus. 

Der Fetch-Zyklus umfaßt vier Schritte: 


Schritt Steuersignal Wirkung 


1 EOA an PC Kopieren des Befehlszäh- 
lers(PC) auf den Adreßbus 
2 +lan PC Erhöhen des Befehlszählers 
3 EOanM Kopieren des Datenregi- 
sters (M) 
ElanlI ins Befehlsregister(I) 
4 EOC anl Kopieren des Befehlsregi- 


sters in die Steuerlogik 


8 Leitungen 


| Eingänge 
(ILI2I3...) 


Externer Interne 


Steuerbus Steuer- 


Mit dem vierten Schritt ist endlich der ADD-Be- 
fehl in die Steuerlogik gebracht, und der Be- 
fehlszähler enthält die Adresse des Bytes mit 
der Konstanten, die addiert werden soll. Vor 
der Erklärung des Execute-Zyklus ist noch ein 
Blick auf die Steuereinheit angebracht. 


Geordnetes Hin und Her 


Sie enthält ein Register für dıe Autnahme des 
aktuellen Opcodes und einen Decoder, der 
entsprechend dem 8-Bit-Muster des Befehls 
eine von 256 Ausgangsleitungen aktiviert — 
wenn nicht alle möglichen Opcodes genutzt 
werden, sind es weniger als 256 Leitungen. 
Darüber werden nun in der „Microprogramm- 
logik“ individuelle Gatterschaltungen ange- 
wählt, durch die im Zusammenspiel mit einem 
Taktzähler-Register (Counter) und einem wei- 
teren Decorder die verschiedenen Steuersig- 
nale bereitgestellt werden. Dabei läuft hardwa- 
remäßig ein „Microprogramm“ ab; in unserem 
Beispiel liefern die Taktschritte während der 
fünf Taktschritte des Execute-Zyklus folgende 
Signale: 


Schritt Steuersignal Wirkung 
5 EOA anPC Einlesen der Additions- 
ElanM konstanten in M 
6 +lan PC PC für das nächste Befehls- 
byte inkrementieren 
7 EO anM Konstanteneingabe in das 
ElanT ALU-Zwischenregister (T) 
8 ADD an ALU Addieren der Konstanten 
zum 
EOanTu.A Akku-Inhalt in der ALU 
EO an ALU Ergebnisübernahme in den 
ElanA Akkumulator 


ei 
Während der Fetch-Zyklus für alle Befehle 
gleich bleibt, muß der Execute-Zyklus genau 
auf die jeweilige Anweisung zugeschnitten 
sein — hier auf das Laden der Konstanten und 
ihre Addition zum Akku-Inhalt. Deshalb erfor- 
dert jeder Opcode ein individuelles Micropro- 
gramm, das heißt eine eigene Gatterschaltung. 
Wie damit die Steuersignale erzeugt werden, 
läßt sich am besten an einem konkreten Bei- 
spiel erklären: Das Ausgabesignal für das Da- 
tenregister (EO an M) muß bei Schritt 3 und 7 
des Befehlszyklus aktiviert werden. Der Op- 
code für die Konstantenaddition ist 1100, 1110, 
dezimal also 206. Sie brauchen nun nur die Lei- 
tungen C3 und C7 vom Taktregister-Dekoder 
durch ein OR-Gatter zu verknüpfen und das Er- 
gebnis mit der Leitung [206 vom Befehlsdeko- 
der zu ANDen — schon erhält man die ge- 
wünschten EO-Signale. Das M-Register muß 
natürlich auch noch durch andere Micropro- 
gramme ansprechbar sein, aber das läßt sich 
einfach durch OR-Verknüpfungen sämtlicher 
EO-Signale erreichen. 

Näheres über diese „Microprogrammie- 
rung“ werden wir Ihnen berichten. 


Auf die Plätze... 


Nachdem die allgemeinen Regeln und Listings für die E/A-Routinen 
von Go ausgearbeitet sind, müssen nun noch einige kleinere Routinen 
integriert werden, die die Datenstruktur organisieren. 


ür ein Go-Programm werden einige allge- 

meine Routinen benötigt. Dazu zählen Pro- 
zeduren zur Aktualisierung der Spielbrettdar- 
stellung, eine Zugkontrolle usw. Anstelle vieler 
spezieller Routinen implementieren wir hierfür 
eine allgemeine Routine, die vielfältig einge- 
setzt werden kann. Anschließend werden die 
Bedeutungen der Ergebnisse bewertet. 

Die Haupt-Prozedur für diese Aufgabe heißt 
in der Acorn-B-Version PROCsearch. Ihr wer- 
den zwei Parameter übergeben: die Position 
jedes Steines in einer Gruppe, die wir bewer- 
ten wollen (P%), und die Farbe der Gruppe 
(C%). Die Prozedur addiert dann 1 zu CSTN% 
(Steinanzahl einer Gruppe) und untersucht die 
vier angrenzenden Steine. Für jeden dieser 
Steine erfolgt derselbe Vorgang, vorausgesetzt 
er wurde noch nicht gezählt. Als Struktur der 
Such-Routine ergibt sich: 

SEARCH (von-Position, für-Farbe) 
IF von-Position ist auf dem Brett 
AND von-Position enthält einen Stein von 
für-Farbe 
AND wir haben von-Position noch nicht 
gezählt 
THEN 
markiere von-Position, um erneutes 
Zählen zu verhindern; addiere 1 zu 
CSTN% (unsere Zählvariable) 
SEARCH (nördlich von von-Position, 
für-Farbe) 
SEARCH (östlich von von-Position, 
für-Farbe) 
SEARCH (südlich von von-Position, 
für-Farbe) 
SEARCH (westlich von von-Position, 
für-Farbe) 

ENDIF 
END SEARCH 
Beachten Sie, daß die rekursiven Aufrufe mit 
vier separaten Anweisungen gehandhabt wer- 
den. Durch dieses Verfahren lassen sich Pro- 
bleme bei verschachteiten Rekursionen sehr 
leicht vermeiden. 

Wenn die Routine sich selbst aufruft, wird 
der „von-Position“-Parameter durch die neue 
von-Position ersetzt (in einer der vier Richtun- 
gen), und die Routine läuft weiter. Die neue 
von-Position kann die Such-Routine auch re- 
kursiv aufrufen, wobei wiederum eine neue 
von-Position-Variable angelegt wird. Irgend- 
wann wird eine der IF-Konditionen FALSCH 
sein, so daß dieser bestimmte Aufruf abgebro- 


chen wird, ohne über die THEN-Anweisungen 
einen rekursiven Aufruf auszuführen. Immer 
wenn die Rekursion an einen solchen Punkt 
kommt, wird der vorherige Wert der von-Posi- 
tion wiederhergestellt. 

Diese „Stack“-Datenstruktur kann man sich 
wie einen Plattenstapel vorstellen. Wenn die 
Routine rekursiv aufgerufen wird, wird eine 
neue Platte auf den Stapel gelegt. Beim Ab- 
bruch dieses Arbeitsvorgangs muß dieselbe 
Platte jedoch wieder vom Stapel genommen 
werden (und der gleiche Variablenwert wird 
wiederhergestellt). Diese Vorgehensweise ist 
bekannt als LIFO (Last In First Out)-Struktur. 


Simulierte Prozeduren 


Im Gegensatz zum Acorn-B-BASIC, das Re- 
kursion durch PROCedure-Parameterüber- 
gabe und lokale Variablen unterstützt, verfü- 
gen der C64, Spectrum und Schneider CPC 
464/664 nicht über diese Möglichkeiten. Ent- 
sprechend finden Sie in den jeweiligen Routi- 
nen die Array-Bezeichnungen SK%() oder s(), 
in denen die benötigten Werte zur weiteren 
Verwendung abgelegt werden. 

Dies geschieht durch einen Zeiger (bei- 
spielsweise mit der Bezeichnung STACK%), 
der die oberste Position auf dem Stack mar- 
kiert. Jedesmal, wenn etwas auf dem Stack ab- 
gelegt wird, erhöht sich der Zeiger. Die jewei- 
lige Variable wird dann auf den obersten Wert 
des Stack gesetzt. 

Ein Nebeneffekt der Suchroutine ist, daß die 
Rekursion immer am Rand der bearbeiteten 
Gruppe endet. Wenn diese Ränder erreicht 


Steine 
bewerten 


Die Such-Routine, die 

zur Ermittlung des Sta- 
tus von Gruppen auf 
dem Spielbrett verwen- 
det wird, enthält rekur- 


sive Prozeduren und 


sucht von jedem Stein 
in der Gruppe in alle 


vier Richtungen. Die 


Routine bricht ab, wenn 


ein Freifeld oder ein 


gegnerischer Stein er- 


reicht wird. 
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werden, kann man überprüfen, ob es sich um 
die Ecke des Spielbrettes oder um einen geg- 
nerischen Stein handelt. Ist keine dieser Be- 
dingungen wahr, muß es sich um ein Freifeld 
handeln. Konsequenterweise zählt der zweite 
Teil der Routine die mit der Gruppe verbunde- 
nen Freifelder. Auch diese Positionen müssen 
markiert werden, da sie sonst zweimal gezählt 
würden. 

Zum Zählen einer Gruppe wird immer die 
Routine PROCcount aufgerufen, die wiederum 
PROCsearch aktiviert. Hierbei werden die 
Zählvariablen initialisiert und die Markierun- 
gen nach Ablauf der Such-Routine gelöscht. 

Dazu wird die Routine PROCclear verwen- 
det, die mittels des logischen Operators AND 
die entsprechenden Bytes mit dem Wert 3 ver- 
knüpft. Da die Farben in den beiden nieder- 
wertigen Bits jedes Brett-Bytes, die Stein- und 
Freifeld-Markierungen aber im dritten und 
vierten Bit gespeichert werden, ist der Aufruf 
von PROCclear(3) ideal: 

Byte: ABCDEFGH 

Maske: 00000011 

Ergebnis:0 00000 GH 

Die Spectrum Version sieht etwas anders 
aus, da der AND-Befehl im Spectrum-BASIC 
nur für WAHR/FALSCH-Ergebnisse in Aus- 
drücken wie „IFX<3AND Y=3THEN ...“ ver- 
wendet werden kann. Daher müssen wir eine 
normale arithmetische Subtraktion durchfüh- 
ren, um Bit 2 (der Spectrum Version) dieser 
Routine zu löschen. 


Allroundroutine 


Nachdem diese allgemeine Löschroutine defi- 
niert ist, kann sie auch zum Löschen des Bretts 
vor Spielbeginn verwendet werden, indem sie 
mit einem 0-Parameter aufgerufen wird (siehe 
Zeile 1400). 

Jetzt ist nur noch eine Spiel-Prozedur nötig, 
bevor wir die Routinen zur Ausführung von 
Spielzügen schreiben können. Dabei handelt 
es sich um den Programmteil, der bei Pro- 
grammstart das Spielbrett mit den entspre- 
chenden Handicap-Steinen erstellt. Bei Go darf 
der schwächere Spieler (der immer Schwarz 
hat) beim ersten Zug zwischen zwei und neun 
Steinen auf das Brett setzen. Diese Steine ge- 
hören auf spezielle Positionen (siehe Handi- 
cap-Routine Zeilen 600 bis 750). Wenn Sie den 
bereits bekannten ersten Programmteil einmal 
gestartet haben, wird Ihnen aufgefallen sein, 
daß Sie am Ende der „title screen“-Routine zur 
Eingabe einer Handicap-Zahl aufgefordert 
werden. Durch Hinzufügen von Zeile 1580 und 
der Routine von Zeile 1630 bis 1690 werden die 
Handicap-Steine nun korrekt gesetzt. In den 
DATA-Anweisungen zwischen den Zeilen 670 
und 740 werden die richtigen Brett-Positionen 
angegeben, wobei jede Anweisung einer be- 
stimmten Anzahl von Handicap-Steinen ent- 
spricht. 
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270 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


Modul 


7120 
720 
‘730 
c8 
740 


750 


4180 
4190 
4200 
4210 
4220 
4230 
4210 
4250 


4260 
4270 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
u44oo 


Zweites AcormnB 


700 


c8,&88 


\ DEF\PROCeount{P%,C%) 


PROCread_handicaps ) 
DEF PROCread_handicaps 
LOCAL LX x < I 
DIM hnep% 43 7 \ LES 
RESTORE 670. EINE 
FOR L% = o\To 3% 2 x 
READ hnep%2L% N % 
NETT ENDEN, Ä 
DATA SUN, &CC ER x 
DATA 8UW, SCCHE&UC \ 
DATA\SUU,ECC, BUC/ECH 
DATA’ &UU, &CC, &UC, &CU, &88 x 
DATA &UW, BCC5KBUCNECH,&EU,8Bc N > 
DATANBUUECC, SUC/ECH, &BUu, 880,888 
DATA 


ENDPROC* 


REM KHK 3a a ee De ale ale a ae ae ae ea aa ae aa a aka 
PROCclear(0) 
PROChandtcap(hand%) | 


DEF PRÖChandicap(hand%) 

LOCAL LX%\PX, Q% \ 

Q%=INT( (hand%-2)/2*Chand%+1)+0.5) 

FOR LX=Q% TO _ Q%+hand%X-1 \ 
P%=hncep%X?LX board%?P%=black%\ 
NEXT ? 

ENDPROC 


FREEMK ka fee aaa aaa ak aaa aaa aaa aka 


elib%=0 cstn%=0 
PROCsearch(P%,C%) 
PROCclear(colour%) 


\ENDPROC 


REM AXE3K 3 aK a ae ea ala ek ka a ea ae a ae a aa ae aka 


&CC, &UC, SCH, 8BUFEEC, EB, 8 


DATA ®.. BUC, ECH,EBU,88C, au8.E 


DEF PROCsearch(P%, E) \ 
IF (P% AND 240)=0\ORXP% AND 15)=0 


ENDPROC 


IF (board%?P% AND colour%)=0O THEN 


IF (board%?P% AND C%)=0 'THEN ENDPR 


IF (board%?P% AND\marker%)>O THEN 


ENDPROC 


board%?P%=C%+marker% 

estn%=cstn%+1 

PROCsearch (P%+dir%(1),C%) 
PROCsearch (P%+dir%(2),C%) 
PROCsearch(P%+dir%(3),C%) 
PROCsearch(P%+dir%(4),C%) 

ENDPROC 

IF (board%?P% AND liberty%)>O THEN 


ENDPROC 


board%?P%=liberty% 
elib%=c1l1i1b%+1 
ENDPROC 


IR EM 3 al ae ak ak aka ae ae ae ae ea ee ak aaa ar aka ak ak aka 


DEF PROCclear(M%) 

LOCAL L% 

FOR L%=0 TO 255 
board%?L%=board%?L% AND M% 
NEXT 

ENDPROC 


REM RR 3 ae ak ak ak ale ke ak ale a ale ale ae ak ak ac ae ae ae ak ale ade ae ac a ak a ak 


Commodore 64 


320 GOSUB 600 n 

590.8 

600 REM READ-HANDICAPS ROUTINE 

620 HNCP=BOARD+512 

640 FOR L=0 TO 43 

650 READ H%: POKE HNCP+L,H% 

660 NEXT 

670 DATA 68,204 

680 DATA 68,204, 76 

690 DATA 68,204, 76,196 

700 DATA 68,204. 76,196,136 

710 DATA 68,204, 76,196,132,140 

720 DATA 68,204, 76,196,132,140,136 

Tan DATA. 68.208. 76,196,132,1U0, 72,200 
7u0 DATA 68,204, 76.196,132,140, 72,200 
‚136 

750 RETURN 

»760 : 

770 FR EEM 3 3 36 3 a6 De ade a6 ale ade ade ae ale ade ade fe ale ade ade ae ade ade ae ad ae ak a a ak a Ka 
1400 MSK%=0:GOSUB 4330 

1580. GOSUB 1630 

1620 : 

1630 REM HANDICAP ROUTINE 

1650..0%=INT( (HND%-2)/2*(HND%+1)+0.5) 
1660 FOR L=Q% TO Q%+HND%-1 


680. NEXT 
690 RETURN 
TOO ; 
17. 10° R EEMak akt ak ak a ok ak ae ac ak ae ale ae ak ak ae ale aka ae ae ak a ak ke ak ak ak ac ak 
4030 : 
4WOUO REM COUNT ROUTINE 
4050 CLIB%=0:CSTN%=0 
4070 SP%=CP%:SC%=CC%:GOSUB WL130 
W080 MSK%=COLOUR%:GOSUB 4330 
4090 RETURN O0 THEN RETURN 
4150 IF (PEEK(BOARD+SP%) AND COLOUR%)=O 
GOTO 4250 
4160 IF (PEEK(BOARD+SP%) AND SC%)=0 THEN 
RETURN 
4170 IF (PEEK(BOARD+SP%) AND MARKER%)>O 
THEN RETURN 
4100 : 
W11O  RIEM3K Kalk ak ak fe lea a ae ee ee le ae ak ka a ae ak ak aka a aka 
4120 : 
4130 REM SEARCH ROUTINE 
uıuo IF (SP% AND. 240)=0 OR (SP% AND 15)= 
4180 POKE BOARD+SP%, SC$K+MARKER% 
4190 CSTN%=CSTN%+1 
uU195 SK%K(STACK%)=SP%: STACK%=STACK%+1 
4200 SP%=SK%(STACK%-1)+DIR%X(1):GOSUB 413 
oO 
4210 SP%=SK%(STACK%-1)+DIR%(2):GOSUB 413 
o 
4220 SP%=SK%(STACK%-1)+DIR%(3):GOSUB "413 
oO 
4230 SP%=SK%(STACK%-1)+DIR%(U):GOSUB 413 
o 
4235 STACK%=STACK%-1:SP%X=SK% (STACK%) 
4240 RETURN 
4250 IF (PEEK(BOARD+SP%) AND LIBERTY%)>O 
THEN RETURN 
4260 POKE BOARD+SP%, LIBERTY% 
4270 CLIB%=CLIB%+1 
4290 RETURN 
4300 : 
W310 REM ak ak ak ak ae ake ak ak ak ae ak ale ae ak ak ae ale ake ak ak ae ak ak ar ak ak ak ak ak ak 
4320 : 
4330 REM CLEAR ROUTINE 
4350 FOR L=0 TO 255 
- 1360 POKE BOARD+L, PEEK(BOARD+L) AND MSK% 
4370 NEXT 
4380 RETURN 
4390 : 
UUOO REM 3a ahead ke ale aka ae ee ae ae ee ae aa ee aka aka aka 


©: P%=PEEK(HNCP+L): POKE BOARD+P%, BLACK % 


Schneider CPC 464/664 


270 GOSUE SOU:REM read handicaps 


sol REM read handicaps routine 
hncp=board+t&200 
RESTÜRE 70 

17=o Tü 43 
READ hi: POKEihncp+t1'%>5 ,h% 
EEE 
DATA &44 ,&cc 
ı &4I4 ,&cc,&d4c 
DATA &44 ,&cc ,&4c,&c4 
44 ,&Kcc,&Ic,&c4,& 
3 44 ,&cc,&4c,&c4,&Ed, 
DATA &44 ,&cc,&4c,&c4,&84,&3c,&88 
DATA &44 ,&cc,&4c ,&c4,&84 ,&8c,&4E,&c5 
4 &44 ,&cc ,&4c,&c4,&84 ,&8c0 ,&48,&c8 
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750 RETURN 

Fe : 

7FÜ REM Kerr nerErenee 

1400 maskK%=0:605UBE 4330:REM clear rautine 

1550 GOSUE 1630:REM hahdicap rautine 

1620: 

I&ES0 REM handicap routine 

1850. q%=1NT( (hand#-2)72*Chand“+1>+0.5 

tE&0 FOR I%=g% TO güthand“-1 

1870 LET p%=PEEKihncp#+1%) :POKE(boar d+p%) 

‚black 

1580 NEX 

1&70 RET 

1700 

1710 REM s#r##H sus a HR HH ER HHrr 

4030 : 

4040 REM count routine 

4050.c1ıbA=el:cstna=ü 

EU clacHl1)=l:clock(ZI=Ü 

4070 sp%=cp%:sck=cc#:G0OSUB 4130:REM search 

4080 mask4=cclcur“:GÜSUB 4330:REM clear 

4070 RETURN ; 

4i1ÜU REM HR Hs sau HH RR: 

4120 : 

4130 REM search routine 

41940 IF sp“ AND Z40)=0 OR (sp% AND 15)= 

Ü THEN RETURN 

4150 IF <PEEK\board+sp)AND colour“)=0 T 

HEN 4250 

41sü IF <FEEKÜboaAr d+spÄ)AND sc#)=Ü THEN 

RETURN 

4170 IF <PEEKiboar d+sp%) AMD marker.) Al 

HEN RETURN 

4180 FÜKECboard+spt) ,scHtmarker” 

4170 cstnı=cstnü+l 

sistackA)=spä:istack"sstackiti 
“-ld+tdirki1?:605UB 4130 

2):GOSUB 4130 

(3):60SUB 4130 


sp“=s(stack 


Ü istack 4):GCSUB 4130 
5 stack#=stackä-l:spX=s(stack”%) 

4240 RETURN 

3250 IF KPEEK{board+sp%) AbD Tibertyi)>0 

THEN RETURN 

42&£0 POKEiboard+sp%),libertyr”“ 

4270 cl ib%=clibiütl 

IzFrU TURN 

sch 

4310 DE 2 2 2 2 2 22 2 22 22 2 22 

4320. : 

I220 REM clear »routine 

4350 FOR 1%=0 TO 255 

4360 FÜKElboar d+ 1%) ,CPEEKÜboard+ 1% > AND 

mask# 


4370 NEXT 1% 

4350 RETURN 

4370 : 

4400 REM rss, Hr RR HEHE 
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Sinclair Spectrum 


270 GO SUB 600 

590: 

600 REM read-handicaps routine 

620 LET hncp=board+512 

630 RESTORE 670 

640 FOR 1=0 TO 43 

650 READ h: POKE hnep+l,h 

660 NEXT 1 

670 DATA 68,204 

680 DATA 68,204, 76 

690 DATA 68,204, 76,196 

700 DATA 68,204, 76,196,136 

710 DATA 68,204, 76,196.132,110 

720 DATA 68,204. 76,196,132,10 
0,136 

730 DATA 68,204, 76,196,132,14 
9, 721.200 

7u0 DATA 68,204, 76,196,132,14 
0: 72.200.136 

750 RETURN 

760: 

TTO REM 3 ak ac ak ale al ale ke abe ak ke ak ade ak ae ae abe ae ak ak ak ak ak 
1400 LET mask=0: GO SUB 4330 
1580 GO SUB 1630 
1620: 

1630 REM handicap routine 

1650 LET qg=INT ((hand-2)/2*(hand 
+1)+0.5) , 

1660 FOR 1=q TO q+hand-i 

1670 LET p=PEEK (hncep+1l): POKE b 
oard+p,black 

1680 NEXT 1 

1690 RETURN 

1700: 

1710 REM ke ke ak ale ale ale ak abe ale ade ak ak ak ade ade ae a ae ae ak ak a 
4030: 

4040 REM count routine 

4050 LET clib=0: LET cstn=0 

4070 LET sp=cp: LET sc=cc: GO SU 
B 4130 

4080 LET mask=colour: GO SUB 4330 
4090 RETURN 

4100: 

WIA1O REM 3 ak ak ke ak ak ale ak ak ak a ak ak ak ak ak ak ak ak aka ak 3 
4120: 

4130 REM search routine 

4140 IF INT (sp/16)=0 OR sp-16*I 
NT (sp/16)=O THEN RETURN 

4150 IF PEEK (board+sp)=liberty 
OR PEEK (board+sp)=0 THEN GO TO 

1250 
4160 IF PEEK (board+sp)=colour-s 
e THEN RETURN 
4170 IF PEEK (board+sp)>colour T 
HEN RETURN 
4180 POKE board+sp,sc+marker 
4190 LET cstn=cstn+1 
4195 LET s(stack)=sp: LET stack= 
stack+l 
4200 LET sp=s(stack-1l)+d(1): GO 
SUB 4130 
4230 LET sp=s(stack-1)+d(4): GO 
SUB 4130 
4235 LET stack=stack-1: LET sp=s 
(stack) 

4240 RETURN 

4250 IF PEEK (board+sp)>colour T 

HEN RETURN 

4260 POKE board+sp,liberty 

4270 LET clib=clib+1 

4290 RETURN 

4300: 

W310 REM ak ake ak aheake ak ka ak ae ak ea ak aa ae ale ak 

1320: 

4330 REM clear routine 

4350 FOR 1=0 TO 255 

4360 IF PEEK (board+l)>mask THEN 
POKE (board+1l),PEEK (board+l)- 

mask-1: GO TO 4360 

4370 NEXT 1 

4380 RETURN 


4390: 
UUOO REM ak ale ak ak ak ak ak aka ak ak ak ae ae ak alk ak ak ak ak ak ak 
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Raumvorteil 

In dieser Situation hat 
Weiß die untere linke 
Ecke des Spielbrettes 
eingeschlossen. Trotz- 
dem ist das Gebiet 
noch nicht vollständig 
sicher. Das Schlüssel- 
feld ist mit einem Kreuz 
markiert. 


Wettlauf am Rand 
Wird Schwarz gestattet, 
auf dieses Schlüsselfeld 
zu setzen, so wird die- 
ser Zug als „Atari“ auf 
den weißen Stein in der 
Ecke des Spielbrettes 
bezeichnet. Weiß kann 
versuchen, in die Ecke 
zu „laufen“, kann je- 
doch den Angriff durch 
Schwarz nicht verhin- 
dern. 


Alternatives Spiel 
Anstatt in die Ecke zu 
laufen, sollte Weiß den 
Stein in der Ecke ver- 
gessen und lieber den 
Vorstoß von Schwarz in 
das eigene Gebiet 
stoppen. Die entspre- 
chende Spielweise se- 
hen Sie in der Abbil- 
dung links. 


Bits und Bytes RE 


Geborgte Zeit 


Im zweiten Teil über die Grafiktalente des Commodore 64 sehen wir, 
wie der VIC-II Chip für seine Bildschirmanzeige Zeit vom 6510 
„borgt“. Das Beispielprogramm „Splitscreen“ teilt den Bildschirm und 
aktiviert zwei unterschiedliche Grafikmodi gleichzeitig. 


m Bildschirmdaten überhaupt anzeigen zu 
können, muß der VIC-I Informationen aus 


Der VIC-II muß aber, besonders bei mehre- 
ren Sprites, viele Daten lesen und hat nicht ge- 


dem Speicher holen. Ihm stehen dazu einige 
Adreßleitungen und alle Leitungen des Daten- 
busses zur Verfügung. Den Zugang zu ROM 
und RAM (die er sich mit dem 6510 teilt) ver- 
schafft sich der VIC-II mit der Technik des „di- 
rekten Speicherzugniffs" (DMA — direct me- 
mory access). Im Idealfall würde nun der VIC- 
II die Adreß- und Datenleitungen nur nutzen, 
wenn der 6510 sie nicht belegt. Die Abläufe 
der beiden Prozessoren wären dann „transpa- 
rent“. Doch leider ist der 6510 ein recht einfa- 


cher Prozessor mit nur wenigen Registern. 


nug Zeit für eine transparente Arbeitsweise. 
Mit einer speziellen Steuerleitung (BA — Bus 
available) sendet er dem 6510 ein Wartesignal 
und verschafft sich so ausreichend Zeit zum 
Lesen der Bildschirmdaten. 

Wenn der Video-Chip Zeit von dem 6510 be- 
nötigt, setzt er die BA-Leitung auf „low“. Der 
6510 kann dann gerade noch den aktuellen Be- 
fehl beenden, bevor der VIC-I die AEC-Lei- 
tung (Adress Enable Control) herunterschaltet 
und die Bustreiber des 6510 deaktiviert. Dieser 
Vorgang kommt einer „Betäubung“ des 6510 


„Splitscreen“ für den Commodore 64 


1418 U=INTCY/B)EV=INTCX/8) AND #$FE 
Ladeprogramm in BASIC 1428 R=YAND?:C=KAND? STA $DCBE 
900 REMSORRRDERRGRRR 1438 M=CM + (4BaU+V)*8 LDA CINV 
302 REMx% SPLITSCREEN 64 “x 1490 RETURN STA TEMPIRQ 
9393 REMxx BASIC LOADER x* LDA CINV+1 
810 REM«« NOTE-IN THIS VERSION xx Assemblerprogramm STA TEMP IRR+I 
920 REM+* HIRES UNDER BASIC SO x** LDA #<NEWIRGQ 
930 REMx* EAN'T USE PEEK IN x BrrrrrrrrH Hr HH HH Hr HH HH STA CINV 
9348 REMrr PLOT SUBROUTINE x BarttrtrrrrrtttHr HH HH HH LDA #>NEWIRG 
350 REIMKRK RR KK ak ak ak ak ak ak aa aka aka ka BER aid sta CINV+1 
sen ; ;++ SPLITSCREEN 64 ++ LDA Dali 
aaa REM SPLIT SCREEN LOAD AND TEST#K Ert 4E AND #85F 
1819 DATA7E,S59,192,49,234,173,25,208 BArrtrrrrrr rt HH HH HH Hr HH Hr STA $DB11 
i@2@ DATA249,37,169,255,160,21,141,25 EERETELEEEFFLTEFFRETTEENR LDA #300 
1839 DATA2BB, 173,0,221,73,2,141,0,221 sTAa soB12 
1948 DATA173,17,208,73,32,141,17,208,41 ’ LDA #$FF 
1858 DATA32,240,4,169,121,168,255, 141 *= scoaa sTA $0819 
1a6@ NATAIS,298,149,24,208,198,3,132 JMP START LDA #$B1 
IB7TD DATAI73,14,220,41,254,141,14,220 ’ STA $paın 
ı1A8a DATA173,20,3,141,3,192,173,21,3 MEMI = $F7 LDR #01 
1899 DATA141,4,192,169,5,141,28,3,1693 MEM2 = &F9 AND #$FE 
1199 DATA192,141,21,3,173,17,2908,41,95 MEM3 = &£FB sta saı 
1119 DATA141,17,2908,169,9,141,18,208 SCN = $FD LDA #$20 
1129 DATAI69,255,141,25,298,169,1,141 CINV = #314 ; IRQ VECTOR STA MEMI 
1130 DATA@S ‚208, 165,1,41,254,133,1,169 TEMPIRQ x*=++2 LDA #$n8 
1149 DATAA,133,247,169,169,133,248,160 # STA MEMI+I 
1158 DATAB,162,28,169,8,145,247,208 ,288 NEWIRQ =x* ;NEW IRQ WEDGE START LDY #500 
1160 DATA2S1,230,248,202 ‚208,246, 169 B LDX #8s1C 
1178 DATA188,133,248,160,8,162,4,169 LDA $0019 LOOK AT THE INTERRUPT STATUS LOA #$s00 
1188 DATA183,145,247 ,200 ,208,251,230 BEQ NOTVIC ’WAS THE IRQ FROM VIC? DDn 
1198 DATA248 ‚292 ‚208,246, 165,1,9,1,133 LDA #$FF STA <MEMID,Y 
12a DATAI1,96,255 LDY #815 INY 
1218 DATA29633 :REMKCHECK SUM« sta snaısa :CLEAR INT LATCH. BNE DOD 
122a CC=@:FORI=9TOIsAa LDA $DD92 INC MEMI +1 
1238 READX:POKE49152+1,X:REM INSERT CODE EOR #302 DEX 
1248 CC=CC+X:iNEXT sSTA $DDaa 3CHANGE BANKS BNE DDD 
1250 READX: IFX< CCTHENPR INT"CHECKSUM ERROR":STOP LDA $DB11 LDA #$BC 
1268 REM#+&#TEST SPLIT SCREENKx#k EOR #320 ;CHANGE BIT MAP MODE BIT STA MEMI+I 
1278 SYS49152:REM SPLIT SCREEN sTAa $Da1l LDY #300 
1288 CM = 40960:REM START HIRES AND #820 ; TEST BMM BIT LDx #304 
129A REMx# PLOT VERT RAXES x* BEQ LSCN LOWER PART DF SCREEN LOA #$B7 
1300 X=168:FORY=DTO?a LDA #879 ;SET RASTER TO LINE 22 DDE 
1318 GOSUBI40A:REM COMPUTE ADDRESS LDY #$FF STA <MEMI)I,Y 
1328 POKEM+FR ,2t(7-C):REM PLOT POINT LSEN INY 
1338 NEXT sTa $spaı2 :SET NEL RASTER COMPARE BNE DDE 
1348 REM«% PLOT HORIZ AXES #k STY $b8ıs INC MEMI+1 
1350 Y=37:FORX=0T0319 NOTVIC DEX 
1369 GOSUBI4AA:REM COMPUTE ADDRESS JMP «TEMP IRQ)» BNE DDE. 
1378 POKEM+R ,255:REM PLOT SEGMENT B LDA sei 
i28a NEXT START =* : INITIALISE IRQ WEDGE DRA #881 
1398 END B sta sa1 
1498 LDA $DCAE RTS 


REMx#* COMPUTE S/R x%* 


;DISABLE SCAN TIMER A 
»cıA #i 


»CHANGE IRQ VECTOR 


;RESET BMM MODE 


+RESET IRQ LATCHES 


»ENABLE RASTER COMPARE 


+BANK GUT BASIC ROM 


SET UP a PAGE PTRS TO FOINT 


+TO START DF HIRES AREA BEHIND 
‚BASIC ROM 


;CLEAR HIRES 


+SET COLOUR 


#RESTORE BASIC ROM 
»BACK TO BASIC 
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Der erste Raster-Inter- 
rupt schaltet auf hohe 
Bildschirmauflösung. 


= 


Der zweite Raster-In- 
terrupt veranlaßt das 
Zurückschalten in den 
Textmodus. 


Viele Abenteuerspiele 
für den C 64 arbeiten 
mit Raster-Interrupts, 
um hochauflösende Bil- 
der und Text gleichzei- 
tig darzustellen. Der 
von Scott Adams ent- 
wickelte „Spiderman“ 
zeigt im oberen Bild- 
schirmdrittel die Spiel- 
szene, während der 
Rest der Anzeige die 
Beschreibung im nor- 
malen Textmodus ent- 
hält. Der Rasterlauf 
wurde so programmiert, 
daß er bei jedem Abta- 
sten des Bildschirms 
zwei Interrupts auslöst: 
einen am oberen Bild- 
schirmrand und den an- 
deren etwa in Höhe des 
ersten Bildschirmdrit- 
tels. Bei jedem Raster- 
Interrupt wird eine 
Routine aufgerufen, die 
zwischen den beiden 
Darstellungsmodi um- 
schaltet. 
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gleich, der überhaupt nicht merkt, daß er nicht 
mehr im Spiel ist. 

Der VIC-II „stiehlt“ dem 6510 eine ganze 
Menge Zeit. So müssen beispielsweise nach 
Darstellung jeder achten Rasterzeile die Poin- 
teradressen der Zeichen (die aus acht Pixel- 
zeilen bestehen) geholt werden. Da in einer 
Bildschirmzeile 40 Zeichen Platz haben, wer- 
den auch 40 Pointeradressen gebraucht. Beim 
PAL-System erneuert der Video-Chip etwa 
25mal pro Sekunde jede zweite Rasterlinie des 
625zeiligen Fernsehschirms. Das amerikani- 
sche NTSC-System arbeitet mit 524 Zeilen, die 
pro Sekunde 30mal erneuert werden. Diese 
Abläufe verlangsamen die Arbeit des 6510 um 
15 bis 20 Prozent. 


Unterschiedlich aufgelöst 


Die DMAs scheinen zunächst keinen Einfluß 
auf die internen Maschinenvorgänge zu ha- 
ben, doch zeigt sich, daß das vorübergehende 
„Abschalten“ des 6510 bei der Ein- und Aus- 
gabe Probleme verursacht — beispielsweise 
beim Zugriff auf Cassettendateien. Dabei kann 
es sogar nötig werden, den Bildschirm wäh- 
rend der E/A (mit POKE 53265,11) zu löschen 
und danach (mit POKE 53265,27) wieder anzu- 
schalten. Ob der unmittelbare Speicherzugniff 
des VIC-II während der E/A Schwierigkeiten 
verursacht, hängt im wesentlichen vom exter- 
nen Gerät und der Datenübertragungsme- 
thode ab. Beim Diskettenzugriff braucht der 
Bildschirm nicht gelöscht zu werden. 

Der Commodore 64 kann — umsichtig pro- 
grammiert — zwei Grafikmodi mit hoher und 
niedriger Auflösung gleichzeitig auf dem Bild- 
schirm darstellen. Damit lassen sich im oberen 
Teil beispielsweise Diagramme oder Grafik 
darstellen, während im unteren Teil Text er- 
scheint oder Eingaben vorgenommen werden. 

Unser Splitscreen-Programm richtet hinter 
dem ROM des BASIC-Interpreters einen Bild- 
schirmspeicher für die hohe Auflösung ein und 
zeigt dessen Inhalt im oberen Bildschirmdirittel 
an. Der untere Teil des Schirms bleibt im nor- 
malen Textmodus. 

In einem früheren Artikel wurde bereits ge- 
zeigt, wie die RAM-Vektoren des Commodore 
64 eingesetzt werden. Über den Inhalt der 
Zwei-Byte-Pointer hatten wir den Ablauf von 
Betriebssystemroutinen auf unseren Pro- 
grammcode geleitet. Mit dieser Technik len- 
ken wir nun die IRQ-Routine um. 

Es gibt mehrere Möglichkeiten, IRQs für den 
6510 auszulösen. Im Normalfall setzt einer der 
CIA-Timer jede Sechzigstelsekunde ein Bit 
des Interrupt Flag Registers (IFR) bei Adresse 
53273 (SD019). Damit wird eine IRQ-Bearbei- 
tungsroutine ausgelöst, die unter anderem 
über die Matrix der Tastaturschalter abfragt, 
ob eine Taste gedrückt wurde. Bei bestimmten 
Ereignissen werden die IFR-Bits auch vom 
VIC-II Chip gesetzt — beispielsweise beim Zu- 


sammenstoß zweier Sprites oder wenn der Ra- 
sterzähler einen vorbestimmten Wert erreicht. 
Ein weiteres Register, das „Interrupt Enable 
Register“ (IER) bei Adresse 53274 ($DO1A), 
dient als „Schalter“ für die IRQ-Leitung des 
6510. Wenn im IER bestimmte Bits gesetzt wer- 
den, lösen die gesetzten Bits des IFR im 6510 
ein Interrupt aus. 

Hier der Aufbau von „Splitscreen": 

1) Wenn am oberen Bildschirmrand ein Raster- 
Interrupt eintritt, wird der Bit-Map-Modus ein- 
geschaltet und ein Raster-Interrupt auf die 
Bildschirmmitte gesetzt. Ein RTI gibt die Steue- 
rung an das OS zurück. 

2) Das Interrupt in der Bildschirmmitte schaltet 
wieder in die niedrige Auflösung, setzt den 
nächsten Taster-Interrupt auf den oberen Bild- 
schirmrand und geht anschließend ins OS. 

Bei diesem Aufbau wird der Teil des norma- 
len Bildschirmspeichers, der dem oberen Bild- 
schirmdrittel entspricht, für die Farbinforma- 
tion des hohen Auflösungsmodus eingesetzt, 
während die restlichen zwei Drittel die norma- 
len Zeichen enthalten. 

Das Programm hat jedoch einen Haken. Ra- 
ster-Interrupts treten alle Fünfzigstelsekunden 
ein und müssen sofort bearbeitet werden, da 
der Rasterstrahl sonst weiterwandert und fal- 
sche Daten anzeigt. Im Normalfall würde die 
IRQ-Bearbeitungsroutine jede Sechzigstelse- 
kunde ausgelöst. Da die Routine jedoch recht 
lang ist, würde unser Programmkeil nur mit 
Verzögerung ausgeführt, wenn die Routine un- 
mittelbar vor dem Raster-Interrupt aufgerufen 
wird. Diese Situation muß unbedingt vermie- 
den werden, da die Grenzlinie zwischen den 
beiden Auflösungsarten sonst flackert. 


Beschleunigtes BASIC 


Wir lösen das Problem, indem wir die Ausfüh- 
rung der IRQ-Bearbeitungsroutine unmittelbar 
hinter den Programmkeil verlegen. Der Sech- 
zigstelsekunden-Timer wird ausgeschaltet 
und so die normale IRQ-Auslösung verhindert. 
Sofort nach Ausführung unseres Programm- 
keils springen wir dann auf die IRQ-Bearbei- 
tungsroutine. Dieser Vorgang sychronisiert die 
beiden Codes. Zwar wird nun die Tastatur sel- 
tener abgefragt, doch läuft dafür das BASIC 
auch merklich schneller. 

Da der Bildschirmspeicher für hohe Auflö- 
sung nun hinter dem ROM des BASIC-Interpre- 
ters liegt, wird das PLOTten in BASIC kompli- 
zierter: Die Sprache kann den RAM-Bereich 
hinter dem BASIC-ROM nicht ansprechen und 
hat so keinen Zugang zu AND- und OR-Befeh- 
len, die unter anderem für das Setzen der Pixel 
nötig sind..POKE umgeht jedoch das BASIC- 
ROM, spricht den dahinterliegenden RAM-Be- 
reich unmittelbar an und macht so das PLOT- 
ten vom BASIC aus erst möglich. Bei reinen 
Maschinencodeprogrammen kann das BASIC- 
ROM völlig abgeschaltet werden. 


wen a Var 
C wie Computer 


Programmiersprachen lassen sich in zwei Hauptgruppen unterteilen: 
Hochsprachen wie BASIC oder PASCAL und maschinennahe Sprachen. 
Die Sprache C überbrückt die Kluft zwischen beiden Gruppen. 


E: den letzten Jahren wurde mit viel Energie 
an Programmiersprachen gearbeitet, die 
menschliche Denkvorgänge imitieren und-den 
Programmierer von den Eingrenzungen der 
Hardware freihalten sollten. Trotz aller An- 
strengungen ist aber immer noch viel Program- 
mierarbeit nötig, wenn Hardware direkt ge- 
steuert werden muß, damit kleine und relativ 
langsame Maschinen maximale Leistung er- 
zielen können. 

Anpassungen dieser Art werden üb- 
licherweise in der Assemblersprache vorge- 
nommen. Gelegentlich finden auch Sprachen 
Anwendung (zum Beispiel FORTRAN), die auf 
eine bestimmte Hardware abgestimmt sind. 
Assemblersprachen erreichen zwar (geschickt 
programmiert) maximale Wirkung, sind aber 
nur auf einen Maschinentyp ausgerichtet. Es 
bestand daher schon seit langem der Bedarf 
für eine einfache Programmiersprache auf re- 
lativ niedriger Ebene, die auf einem breiten 
Maschinenspektrum läuft und die Strukturen 
und Vorteile der Hochsprachen mit der direk- 
ten Hardwaresteuerung verbindet. 

BCPL war die erste Sprache, die diesen An- 
forderungen entsprach. Sie wurde von Martin 
Richards an der Cambridge University entwik- 
kelt. Als Ken Thompson und seine Mitarbeiter 
in den Bell Laboratorien am Betriebssystem 
Unix arbeiteten, suchten sie dafür eine Hoch- 
sprache und übernahmen viele Konzepte von 
BCPL in eine Sprache namens B. Kemighan 
und Ritchie entwickelten aus B schließlich C 
und veröffentlichten die Sprachdefinition 1978 
in dem Buch „The C Programming Language", 
das als Standard für C-Anwendungen gilt — bis 
letztlich ein neuer internationaler Standard ent- 
wickelt wird. 

C und Unix standen immer in enger Verbin- 
dung. Von den 13000 Codezeilen, aus denen 
die Kernroutinen von Unix bestehen, wurden 
nur etwa 800 Zeilen in Assembler entwickelt, 
der Rest entstand in C. Durch ihren geringen 
Befehlsumfang ist © leicht erlernbar. Sie ver- 
einfacht außerdem die Erstellung von Compi- 
lern und läßt sich damit leicht auf viele ver- 
schiedene Maschinentypen anpassen. Da C 
sehr maschinennah ist, ist auch ihr Code kom- 
pakt und schnell. Es wurden damit nicht nur 
Unix und Unix-Anwendungen geschrieben, 
sondern auch größere Teile von MS-DOS und 
CP/M erstellt. 

C-Compiler gibt es für fast alle Micros und 


auch für viele Maschinen der Groß-EDV. Soft- 
warehäuser können unter C erstellte Pro- 
gramme leicht auf völlig verschiedenartige 
Geräte wie den Apple Macintosh und IBM PC 
übertragen. In dieser Serie halten wir uns an 
die Version von Kernighan und Ritchie und set- 
zen — beispielsweise bei vorgefertigten Funk- 
tionen — das Betriebssystem Unix voraus. 

C-Programme werden aus anwenderdefi- 
nierten Funktionen aufgebaut, die eine Reihe 
von Argumenten, Werten oder Pointer auf 
Werte annehmen können und Werte oder Poin- 
ter zurückliefern (die weiterverarbeitet oder 
ignoriert werden können). Jede Funktion wird 
über ihren Namen aufgerufen. 


Die Funktion „main“ 


Alle C-Programme beginnen mit der Ausfüh- 
rung der Funktion „main“. Die äußerste Pro- 
grammebene muß daher eine Definition dieser 
Funktion sein. Das folgende Programm ist zwar 
sehr einfach, aber dennoch vollständig: 

main() 


| 


Es zeigt einige wichtige Eigenschaften der 
Sprache. Die Definition einer Funktion besteht 
aus einem Funktionsnamen, gefolgt von einer 
in Klammern stehenden Argumentenliste. In 
diesem Beispiel hat main zwar keine Argu- 
mente, muß aber Klammern enthalten. 

Der Hauptteil der Funktionsdefinition be- 
steht aus einer Folge von Anweisungen (in die- 
sem Fall gibt es nur eine), die von Klammern 
([])) umschlossen sind und mit einem Semiko- 
lon enden. Die Klammern ähneln dem 
„Begin...End“ von PASCAL. Sie umschließen 
eine beliebige Folge von Befehlen oder Dekla- 
rationen, die nun wie einzelne Befehle einge- 
setzt werden können. Der Gebrauch des Semi- 
kolons ist jedoch einfacher als PASCAL — jede 
vollständige Anweisung wird durch ein Semi- 
kolon abgeschlossen. Unser Programm enthält 
nur eine einzige Anweisung — die Standard- 
funktion printff. 

Die Ein- und Ausgabe wurde in C nicht fest 
definiert, da sie von Gerät zu Gerät stark vari- 
ieren kann. Statt dessen liefert jede Anwen- 
dung einen eigenen Satz von E/A-Funktionen, 
die dem Sprachstandard entsprechen müssen. 
Der von printf zurückgelieferte Wert hat keine 


printf("hallo Welt/n"); 


Hisoft-C läuft auf 
Schneider und Spec- 
trum Computern. Die 
Version hält sich eng 
an den Standard, ver- 
fügt jedoch nicht über 
das Fließkommaformat. 
Hisoft hat jedoch eine 
Fließkommaversion an- 
gekündigt, die in Kürze 
herauskommen soll. 
Der einzige andere 
Nachteil ist das Hand- 
buch. Es ist zwar um- 
fassend angelegt, aber 
so unübersichtlich, daß 
es sich für Anfänger 
nicht eignet. Wenn Sie 
jedoch schon Erfahrun- 
gen mit der Sprache ha- 
ben oder über ein ande- 
res Lehrbuch verfügen, 
ist dieses Paket sehr 
brauchbar. 
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Bedeutung und wird ignoriert. printf kann eine 
beliebige Anzahl von Argumenten haben: nu- 
merische, Zeichenvariablen oder Strings 
(siehe oben). Auch gibt printf nicht automa- 
tisch ein Return aus, sondern nur auf Anwei- 
sung. C hat dafür spezielle Stuersymbole, die 
mit dem „Backslash“ (/) beginnen. Das Sym- 
bol für Retum ist\/n (siehe Tabelle der Es- 
cape-Steuerzeichen). 
Das folgende Programm erzeugt das gleiche 
Ergebnis wie unser erstes Beispiel: 
main() 
ur 
printf(”hallo”); 
printf("Welt”); 
printf("/n"); 


® Eier mit Typen — das heißt, der Typ jeder 

Variable muß deklariert werden. Folgende Ty- 

pen sind ständig vorhanden: 

char — Zeichen, die ein Byte belegen 

short — kurze Ganzzahlen 

int — normale Ganzzahlen 

long — ganze Ganzzahlen 

float — reelle Zahlen im Fließkommaformat 

double — Zahlen im Fließkommaformat mit dop- 
pelter Genauigkeit 

Variablendeklarationen bestehen aus einem 

Typennamen, gefolgt von einer Liste sämt- 

licher Variablennamen dieses Typs. Alle Varia- 

blen müssen deklariert werden, wobei sich die 

Deklarationen an einer beliebigen Stelle des 

Programms befinden können. Variablennamen 

dürfen beliebig lang sein, jedoch werden nur 

die ersten acht Stellen verarbeitet. 

Wie auch in anderen Sprachen dürfen Varia- 
blennamen in C keine Leerzeichen enthalten, 
wohl aber das Zeichen für Unterstreichung 
(Underline). Die Namen dürfen weiterhin nicht 
mit einer Zahl oder einem Underline beginnen. 
Groß- und Kleinbuchstaben werden unter- 
schieden: A ist eine andere Variable als a. Die 
Bytezahl der numerischen Typen ist nicht fest- 
gelegt und kann je nach Anwendung variieren. 
Eine Ganzzahl vom Typ „short“ hat normaler- 
weise acht Bits, „int“ 16 Bits und „long“ 32 Bits. 

Zuordnungen und mathematischen Abläufe 
folgen den üblichen Regeln, wobei das Gleich- 
heitszeichen (=) die Rolle des Zuordnungs- 
operators spielt. Mit % eingesetzt, ergeben die 
arithmetischen Operatoren +, —, * und / den 
Modulowert: 

int x,y,Z 


Z=X%Yy 
Ausdrücke und Zuordnungen können beliebig 
viele numerische Typen und „char“ enthalten, 
wobei char hierbei als Ein-Byte-Ganzzahl (mit 
dem ASCII-Code eines Zeichens) angesehen 
wird. C führt alle Typenumwandlungen von 
„niedrigen“ in „höhere“ Typen automatisch 
aus. Hierbei ist interessant, daß normalerweise 
alle Operationen im Fließkommaformat in dop- 
pelter Genauigkeit ausgeführt werden, selbst 


wenn alle Operanden nur vom Typ „float“ sind. 
Typenänderungen lassen sich aber auch for- 
cieren, indem der neue Typ in Klammern vor 
dem Variablennamen aufgeführt wird: 

intn; 

float f; 


f=saqrt((double)n); 
übernimmt eine Kopie des Wertes n in doppel- 
ter Genauigkeit, da die Quadratwurzelfunktion 
als Argument den Type double erwartet. Der 
Inhalt von n bleibt dabei unverändert. 

Mit ++ und —— besitzt C zwei weitere prak- 
tische Zusatzoperationen für die In- und De- 
krementierung. ++a inkrementiert den Wert a 
und, ——a dekrementiert ihn, bevor der aktu- 
elle Befehl ausgeführt wird. Bei at+ und a-— 
geschieht die In- und Dekrementierung erst 
nach Beendigung des aktuellen Befehls. 

int a,b 


b=1; 

a=b++; /*ergibt 1 in a und 2 in b*/ 
während 

b=1 

a=++b;/* die 2 sowohl in a und b ergibt */ 
Da diese Zuordnung als Funktion behandelt 
wird, liefert sie auch ein Ergebnis zurück: den 
zugeordneten Wert. Dieser Wert läßt sich nun 
in einem anderen Ausdruck wie 

x=y=7; 
weiterverarbeiten. Das Beispiel ordnet x und y 
den Wert von z zu. 

Wir hatten bereits erwähnt, daß Ein- und 
Ausgabe von Standardfunktionen ausgeführt 
werden, die je nach Anwendung variieren kön- 
nen. Da es jedoch schwierig ist, Programme 
ohne ein E/A-Format zu schreiben, gehen wir 
am Ende dieser Folge noch kurz auf die bei- 
den Hauptfunktionen der Terminal-E/A ein. 
Eine kennen wir bereits: printf formatiert Werte 
der verschiedensten Typen und sendet sie an 
das Standard-Ausgabegerät (normalerweise 
den Bildschirm). Das vollständige Format sieht 
so aus: 

printf(control-string, argl, arg2, .....); 
Argumente können Strings oder Variablen der 
grundlegenden Datentypen sein. 

Der „Control-string“ kann normale Zeichen- 
folgen enthalten, die ohne Veränderung aus- 
gegeben werden. Er hat jedoch auch spezielle 
Formatierungsangaben für jedes der Argu- 
mente und legt auch die Anzahl der Argu- 
mente fest. Formatierungsangaben beginnen 
mit % und enden mit einem der Umwandlungs- 
zeichen (siehe Tabelle). Zwischen diesen bei- 
den Zeichen bestimmt das Zeichen „—" die 
Linksbündigkeit des Ausgabefeldes, eine Zahl 
jedoch die Feldbreite einer Zahlenausgabe. 
Ein Punkt gefolgt von einer weiteren Zahl legt 
(bei einem String) die Anzahl der anzuzeigen- 
den Zeichen fest oder (bei Zahlen vom Typ 
float oder double precision) die Zahl der Nach- 
kommastellen. 
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Computerhilfe 
in Geldfragen 


Computer haben viele nützliche 
Seiten. In regelmäßiger Folge wol- 
len wir Sie mit einigen davon be- 
kannt machen und Ihnen zeigen, 
wie Sie sie nutzen. Den Anfang 
macht ein Kostenkalkulator für 
die meist gängigen Computer- 
systeme, der Sie bei der Haus- 
haltsbuchführung unterstüt- 

zen kann und überdies eine 
große Hilfe für die Erstel- 

lung Ihrer Steuererklä- 

rung darstellt. 


o bleibt nur das ganze Haus- 

haltsgeld? Die Übersicht über 
Einnahmen und Ausgaben zu behal- 
ten, ist ein Problem, das jeder nur 
allzu gut kennt. Doch wie ein Ge- 
schäftscomputer kann auch Ihr Mi- 
crorechner Finanzdaten speichern 
und verarbeiten. Hier ist ein einfa- 
ches Programm, das Ihnen gute 
Übersicht über Einnahmen und Aus- 
gaben ermöglicht. 

Der „Kostenkalkulator“ wurde ge- 
schrieben, um diese Aufgabe etwas 
leichter zu machen. Das Programm 
läuft auf den Atari-Modellen 400, 
800, 600XL, 800XL und 130XE, auf 
dem Sinclair Spectrum, Commodore 
128 und 64 sowie Schneider CPC 
464. Auf dem VC20 muß die Bild- 
schirmausgabe der kürzeren Zeile 
angepaßt werden. 

Um eıne Bilanz zu aktualisieren, 
füttern Sie einmal im Monat (oder 
wann immer Sie Zeit haben) den 
Rechner mit Einzelposten ihres Ein- 
kommens, etwa Gehalt oder Ta- 
schengeld und den Ausgaben an- 
hand von Kontoauszügen und 
Scheckbüchern. So gibt der Rechner 
jederzeit einen Überblick darüber, 
wann und wo Geld ausgegeben 
wurde und wie Einnahmen zu Aus- 
gaben stehen. 


Ausgaberubriken 


Das Programm ist ziemlich lang. Ist es 
aber einmal eingegeben und auf Cas- 
sette gespeichert, kann es immer wie- 
der in den Rechner geladen werden 
und steht somit ständig zur Verfügung. 

Das Programm stellt eine Spalte für 
das Einkommen und sieben für die 
Ausgaben unter verschiedenen Rubri- 
ken zur Verfügung. Die Rubriken kön- 
nen den persönlichen Bedürfnissen 
angepaßt und verändert werden: Al- 
les, was Sie dazu tun müssen, ist, den 
Wortlaut in den DATA-Zeilen des Pro- 
gramms zu ändern, bevor es gestartet 
wird. Das Einkommen muß die letzte 
Eingabe sein, und Sie müssen acht 
Spalten festlegen. Sonst kann es nicht 
so einfach funktionieren. 

Das Programm wird in zwei Schrit- 
ten abgespeichert: zunächst das Pro- 
gramm selbst, dann alle Informatio- 
nen, mit denen es beim letzten Benut- 
zen „gefüttert“ wurde. Das bedeutet, 
daß Sie zwei Programmnamen benöti- 
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gen, einen für jeden der zwei Teile. 

Um das Programm zu speichern, fol- 
gen Sie der normalen „Speicher-Pro- 
zedur" für den Computer so, wie sie 
im Handbuch beschrieben ist. 

Um das Programm zu laden, folgen 
Sie der üblichen Ladeprozedur, die 
Sie von eigenen Programmen kennen. 

Anweisungen für das Laden und 
Speichern der DATAs werden etwas 
später gegeben. Wenn das Programm 
startet, bietet das Hauptmenü immer- 
hin sieben Auswahlmöglichkeiten: 


l. Daten eingeben 
2. Daten abfragen 

3. Daten speichern 

4. Daten laden 

5. Drucken ja/nein 

6. Daten ändern 

7. Programm beenden 


Um einen 
Sie die Taste 1 betätigen, wenn das 
H 


Eintrag zu machen, sollten 


auptprogramm erscheint. Nicht 
NTER oder RETURN in diesem Sta- 
dium drücken. Der Computer wird der 
eihe nach die verschiedenen Einzel- 
informationen abfragen. Er erkundigt 
sich nach Datum, Buchungstext (hier 
kann eingetragen werden, was ge- 
kauft wurde oder welcher Art das Ein- 
kommen ist), Betrag, Rubrik (eine der 
Rubriken, die in die DATA-Zeilen ein- 
getragen wurden). Am Schluß jeder in 
dieser Reihenfolge eingegebenen In- 
formationen dient die ENTER- oder 
RETURN-Taste zur Bestätigung. 

Wenn Sie die Einträge beendet ha- 
ben, warten Sie, bis der Computer 
nach neuen Daten fragt. ENTER oder 
RETURN führen Sie schnell zurück 
zum Hauptmenü. 


es) 
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Um dann einen oder mehrere Ein- 
träge anzusehen, wählen Sie Menü- 
punkt 2, wenn das Hauptmenü er- 
scheint. Auf keinen Fall die ENTER- 
oder RETURN-Taste drücken. 


Bilanzieren 


Der Computer zeigt eine Anzahl von 
verschiedenen Rubriken: sieben Aus- 
gabeposten, einen Einkommens- 
posten. Um eine Rubrik zu wählen, ist 
die passende Nummer (wiederum 
nicht ENTER oder RETURN) einzuge- 
ben. Der Computer wird alle Posten 
auswerfen, die er in dieser Kategorie 
gespeichert hat, mit dem Gesamt- 
betrag am Ende. 

Auf dem Bildschirm des Spectrum 
wird die Frage „scroll?“ angezeigt, 
wenn der Bildschirm zu klein für alle 
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gleichzeitig anzuzeigenden Einträge 
ist. Nicht die Taste N in diesem Sta- 
dium des Programms betätigen; es 
muß der Reihenfolge nach durch die 
ste gehen. 

Sobald Sie fertig sind, können Sie 
it ENTER oder RETURN zum Haupt- 
enü zurückkehren. Wenn Rubrik 8 
ewählt wurde, wird nicht nur das ge- 
aue Gesamteinkommen, sondern 
uch die Posten sämtlicher Ausgabe- 
ubriken plus einer Bilanz des Ein- 
kommens und der Ausgaben ange- 
zeigt. 

Wenn Sie Taste 6 drücken, um 
einen Eintrag zu ändern, wird der 
Computer eine Liste von allen ge- 
machten Einträgen anzeigen, unab- 
hängig von der entsprechenden ange- 
wählten Rubrik. 

Sobald nach einer Änderung EN- 
TER oder RETURN gegeben wird, 
bringt Sie der Computer automatisch 
ins Hauptmenü zurück. Um eine 
zweite Änderung zu machen, sollten 
Sie nochmals Punkt 6 anwählen. 
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| Speichern 


Wenn der Menüpunkt 5 (ohne ENTER 
oder RETURN) im Hauptprogramm 
angesprochen wird, fragt der Com- 
puter mit J/N, ob der Drucker ein- 
gesetzt werden soll. Mit ] kann man 
zum Hauptmenü zurückkehren. Alle 
Informationen, die normalerweise der 
Bildschirm anzeigt, werden statt des- 
sen ausgedruckt, wenn der Menü- 
punkt 2 angewählt ist. Wollen Sie 
nichts mehr ausdrucken, kehren Sie 
zu Menüpunkt 5 zurück und schalten 
den Drucker aus. 
Seien Sie vorsichtig, wenn Sie ]J 
drücken und der Drucker nicht ange- 
schlossen ist. Der Spectrum und der 
Atari werden den Befehl ignorieren, 
aber auf jedem der anderen Compu- 
ter können Sie leicht Daten verlieren. 
Die wichtigsten Schritte zum Spei- 
chern und Laden sehen so aus: Um 
die Finanzdaten zu speichern, tippen 
Sie Menüpunkt 3 (ohne ENTER oder 
RETURN). Jetzt geben Sie einen Na- 
men für die Datei, z.B. „Gelddatei", 
ein. Dann ist nur noch RETURN oder 
ENTER und die “RECORD"-Taste auf 
dem Cassettenrecorder zu betätigen. 
Sind alle Daten gespeichert, können 
Sie zum Hauptmenü zurückkehren, 
von wo Menüpunkt 7 angewählt wer- 


den kann, um nunmehr das Programm 
zu beenden. 

Um die Informationen, die zuvor ge- 
speichert wurden, in das System zu la- 
den, wählen Sie Punkt 4 im Haupt- 
menü. Jetzt den Dateinamen einge- 
ben, RETURN oder ENTER und an- 
schließend die „Play“-Taste auf dem 
Cassettenrecorder drücken, und 
schon ist Ihre persönliche Finanzüber- 
sicht abrufbereit. 

So sind Sie ständig auf dem Laufen- 
den, was den Verbleib Ihres Geldes 
angeht. 

Mit dieser Haushaltsbuchführung 
kann Ihr Heimcomputer eine sinnvolle 
Aufgabe übernehmen und erweist 
sich so als nützlicher Helfer. 


10 INK 0,0: INK 1,24: BORDER ®: ZONE 10: 
MODE 1 

20 n=P: w=P: pay=P: spent=P: 

DIM a$(300),a(300),d$(300),k$(7) 

50 FORt=® TO 7: READ k$(t): NEXT 

60 GOSUB 669 ’° HAUPTMENUE 

70 ON a GOSUB 169,560,800,850,920,970, 
99 

80 IFa<>7THEN 60 

99 PRINT: PRINT “Bist Du sicher ?” 

100 b$=INKEY$: IF b$ =" THEN 100 ELSE 
IF LOWER$(b$) = ““j” THEN CLS: END 

110 GOTO 60 

160 ’*** EINGABE '** 

170 z=6: CLS 

180 IFn>299 THEN PRINT: PRINT: 

PRINT “LISTIPLIEUIILICIIHLIELIR 
UIDDOVDIOHLILTITP’: SOUND 1, 
30,50,15: CALL &BB18: RETURN 

190 PRINT: PRINT ‘Mit RETURN im DATUM- 
Feld zum MENUE” 

200 PRINT: PRINT “DATUM! IL IL JUL ] [| 
BUCHUNGSTEXTL LI. II. JBETRAG 
UJLILIRUBR” 

220 LOCATE 1,2: INPUT “”,d$(n+1): IF 
d$(n+1)=‘"" THEN 350 

230 LOCATE 11,z: INPUT “”,a$(n+1): 
LOCATE 27,2: INPUT “”,a(n +1): LOCATE 
36,z: INPUT ‘“,ca$ 

240 d$(n+1)=LEFT$(d$(n-+1),8): a$ 
(n+1)=LEFT$(a$(n+ 1),16) 

250 GOTO 270 

260 LOCATE 36,2: PRINT “II LI LI II I)”: 
LOCATE 36,2: INPUT “”,ca$ 

270 x=®: FORt=® TO 7: IF INSTR(k$(t), 
UPPER$(ca$))=1 THEN x=x+1:y=t 

280 NEXT 

290 IFx< >1 THEN 260 

300 a$(n+1)=CHR$(y) +a$(n+1) 

310 IFy=1 THEN pay=pay+a(n+1) ELSE 
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spent=spent+a(n+1) 

320 z=z2+1:n=n+1 

330 IF z>19 THEN z=®P: CLS 

340 GOTO 220 

350 RETURN 

360 ’ *** RUBRIKEN ZEIGEN *** 

370 CLS: sum=® 

380 PRINT #w: PRINT #w,k$(c): PRINT 
#w,STRING$(LEN(k$(c)),154) 

400 FORt=1TOn 

410 IFn=® THEN 460 

420 s$=RIGHT$(a$(t),1) 

430 IF ASC(LEFT$(a$(t),1))< >c THEN 460 

440 PRINT #w: PRINT #w,d$(t);TAB(11); 
RIGHT$(a$(t),LEN(a$(t)) — 1);TAB(31); 
USNGARH HH HH AU) 

450 sun=sum + alt) 

460 NEXT 

470 PRINT #w,TAB(32);“ - 


480 PRINT #w,TAB(21);“TOTAL DM” ,USING 
ABK RKRSH HT sum 

490 IFc< >17 THEN 520 

500 PRINT #w: PRINT #w: PRINT 
# w,‘“DEINE GESAMTAUSGABEN DM ”, 
USING" ARAHRHL.F FT ;spent 

510 PRINT #w: PRINT #w,“DIE BILANZ 
IST’;SPC(12); “DM”, USING "## # 
###.# #” ‚pay —spent 

20 w=® 

549 PRINT: PRINT: PRINT “IRGENDEINE 
TASTE: WEITER ANSCHAUEN’: PRINT: 
PRINT “ENTER: ZURUECK ZUM MENUE” 

550 b$ = INKEY$: IF b$=‘“" THEN 550 ELSE 
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g=ASC(b$): RETURN 

569 ' *** ANSCHAUEN "** 

570 CLS: PRINT 

580 FOR t=® TO 7: PRINT: PRINT TAB(19); 
DEC$((t +1,“ 4”); I LI”;k$(t): NEXT 

599 PRINT: PRINT: PRINT “WELCHE RUBRIK 
NUMMER >?” 

600 b$=INKEY$+ “ ”: c=ASC(b$) — 49 

610 IFc= — 36 THEN RETURN 

620 IFc<® OR c>7 THEN 600 

630 GOSUB 360 'RUBRIKEN ZEIGEN 

640 IF g=13 THEN 650 ELSE 570 

650 RETURN 

669 ’ *** MENUE ""* 

670 CLS 

680 LOCATE 10,2: PRINT “HAUPT MENUE” 

690 LOCATE 19,5: PRINT “1 — Daten 


eingeben” 

70® LOCATE 10,7: PRINT “2 — “Daten 
abfragen” 

710 LOCATE 19,9: PRINT ‘3 — Daten 
speichern” 


720 LOCATE 19,11: PRINT ‘4 — Daten 
laden’ 

730 LOCATE 190,13: PRINT ‘5 — Drucker 
ja/nein’ 

740 LOCATE 10,15: PRINT ‘6 — Daten 
aendern” 

750 LOCATE 10,17: PRINT “7 — Programm 
beenden” 

760 LOCATE 10,20: PRINT ‘Deine Wahl ?” 

770 b$=INKEY$ + “1”: a=ASC(b$) — 48 

780 IFa<1 OR a>7 THEN 770 

790 RETURN 


800 ’ *** SAVE ’** 

810 INPUT “Name: ”,d$ 

815 IF d$=““” THEN RETURN 

817 PRINT “REC und PLAY — dann eine Taste 
druecken” 

820 CALL &BB18: PRINT “Daten werden 
abgespeichert” 

830 OPENOUT “!”+d$: PRINT #9;,n 

840 FOR t=1 TO n: WRITE #9,d$(t),a$(t), 
alt): NEXT: CLOSEOUT: RETURN 

850 ’ *** LOAD *** 

860 PRINT: INPUT ‘Name: ”,d$ 

870 PRINT “PLAY druecken — Daten werden 
geladen” 

880 OPENIN “!”+d$: INPUT #9,n 

890 FOR t=1 TO n: INPUT #9,d$(t),a$(t), 
alt) 

909 IF ASC(a$(t))=7 THEN pay=pay+ alt) 
ELSE spent=spent + alt) 

910 NEXT: CLOSEIN: RETURN 

920 ’ *** DRUCKEN *** 

930 PRINT: PRINT “Printer ? (j\n)” 

949 b$ = INKEY$: IF b$ =“ THEN 940 ELSE 
IF LOWER$(b$) = ““j” THEN w=8: GOTO 
969 

959 IF LOWER$(b$) < > ““n” THEN 940 ELSE 
w=® 

960 RETURN 

970 ' *** AENDERN *** 

989 CLS:t=1 

999 IFn=® THEN RETURN 

1000 WHILE (b$ <>“ ” AND 
b$< >CHR$(13)) 

1010 CLS: PRINT: PRINT: PRINT “EINTRAG 
NUMMER”;STR$(t),k$(ASC(a$(t))): PRINT 

1015 PRINT d$(t),RIGHT$(a$(t),LEN(a$(t)) 

— 1);TAB(25);‘“DM”;TAB(31);USING “ # 
BRRKBHH HF alt): PRINT: 
PRINT 

1020 PRINT: PRINT: PRINT ‘““V(orwaerts) 
Z(urueck)”’: PRINT: PRINT’’Aendern mit 
Leertaste”’ 

1025 PRINT: PRINT “Mit RETURN zurueck zum 
Menue” 

1030 b$ = INKEY$: IF b$ =" THEN 1030 

1040 IF LOWER$(b$) = “zZ” THEN t=t—1: IF 
t<1 THEN t=1 

1050 IF LOWER$(b$) =“"v” THENt=t+1: 
IFt>n THEN t=n 

1060 WEND 

1070 IF b$=CHR$(13) THEN RETURN 

1080 e=t: PRINT: PRINT “DATEN 
AENDERN !” 

1090 ca$ = CHR$(ASC(a$(e))) 

1100 IF ASC(a$(e))=7 THEN pay = pay— 
a(e) ELSE spent = spent — ale) 

1110 INPUT “DATUM ”,a$: IF 98 < >" 
THEN d$(e)=q$ 

1120 INPUT “BUCHUNGSTEXTL] ”,q$: IF 
a$< >" THEN a$(e)=q$ ELSE a$(e) = 


RIGHT$(a$(e),LEN(a$(e)) — 1) 


1130 INPUT “BETRAG I” ,a$: IF 96 < >" 
THEN a(e) = VAL(a$) 

1140 INPUT “RUBRIK ”,a$: IF 96 <>“ 
THEN ca$ =$ 


1150 GOTO 1170 

1160 INPUT “Neue RUBRIK ”,ca$ 

1170 x=®: FORt=0T0 7 

1180 IF INSTR(K$(t),UPPER$(ca$)) = 1 THEN 
x=X+1ly=t 

1190 NEXT 

1200 IFx<>1 THEN 1160 

1210 a$(e) =CHR$(y) + a$(e) 

1230 PRINT “AENDERUNG BEENDET”: CALL 
&BB18 

1240 RETURN 

1250 DATA HAUSHALT,UNTERHALTUNG, 
MIETEN und STEUERN,KLEIDUNG, AUTO, 
FERIEN,VERSCHIEDENES,EINKOMMEN 


50 LET mn = 20: IF PEEK 23733=127 
THEN LET mn = 100 

100 DIM c$(8,16): DIM a(mn): DIM 
a$(mn,23) 

110 LET u=P: LET v=1 

120 FOR n=v TO 8: READ c$(n): 
NEXT n 

130 POKE 23658,8 

140 LET K$=".00”": FORn=v TO 7: 
LETk$=k$+CHR$ 8: NEXT n 

190 LETp=2: LET tt=u: LET cr=u 

200 CLS : PRINT BRIGHT v; PAPER 
2: INK 6:AT 2.6: 

OHDADUDPOT 

OMDENNDUDE” 

210 PRINT BRIGHT v;PAPER 7;AT 5,6; 


1:— UIDATEN EINGEBEN! ]”; AT 7,6; 
“[12:— LIDATEN ABFRAGEN! |”’;AT 9,6; 
“[13:— LISAE AUF BANDU]L1”;AT 11, 
6; 14:— LILADEN VON BANDL]”;AT 
13,6;°°U15:— UIDRUCKER J/N 
u 1;AT 15,6; 16: — LIEINTRAG 
AENDERN L]”;AT 17,65“ 117: — 

PROGRAMM STOPLIL1” 


2 


DS} 


® PRINT AT 21,6;INK 3;FLASH v;PAPER 2; 

NK 735“ WAEHLE OPTION. [1 — [1 

230 IF INKEYS= THEN GOTO 230 

240 LET z$=INKEY$: IF z$< “1” OR 
2$> “7” THEN GOTO 230 

250 CLS : GOSUB 100®*VAL z$ 

260 GOTO 209 

1000 LET c=u 

1005 LETc=c+v: IFc=mn+vTHEN 
RETURN 

1006 IF a$(c,v) = 
19010 

1007 GOTO 1005 

1010 PRINT AT u,u; nn v;PAPER 2;INK 7; 
= DATUM IUTXKTOOO 


” THEN GOTO 


2020 IF INKEY$ =" 
2030 LET z$ = 
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BETRAG LIRUB” 

1015 IFc=mn+v Ya a. 

1020 INPUT“DATUM?! JOD D”;LINE 
a$(c,2 TO 9):1F a$(c, u “tr” THEN 
RETURN 

1030 PRINT TAB u;a$(c,2 TO 9) 

1040 INPUT “ARTIKEL? LIT IT ]” 
a$(c,10 TO 23): IF a$(c,10) = 
GOTO 1049 

1050 PRINT TAB 9;a$(c,10 TO 21); 

1060 INPUT “BETRAGI 1”;a(c): IF 
a(c)=u THEN GOTO 1060 

1070 LET vv=a(c)'100: LET v$=STR$ 
w: PRINT TAB 27 —LEN v$;a(c); 

1080 INPUT “RUBRIKI IL ILL 1”; LINE f$: 
IF f$ =" THEN GOTO 1080 

1090 FOR n=vTO 8: IF f$=c$(n,v 
TO LEN f$) THEN GOTO 1130 

1100 NEXT n: GOTO 1080 

1130 IFn=8THEN LET cr=cr+ a(c) 

1140 IFn< >8 THEN LET tt=tt+ a(c) 

1150 PRINT TAB 29;c$(n,v TO 3) 

1160 LET a$(c,v) =CHR$ (48+n) 

1200 LET c=c-+v: GOTO 1015 

2000 FOR n=v TO 8: PRINT PAPER v; 

INK 7;AT n'2,6;“ [1”;n;‘:— 11”; 
c$(n): NEXT n 

2010 PRINT FLASH v; INK 2;AT 19,3; 
“| IWaehle Rubrik (1 bis 8) | |” 

THEN GOTO 2020 

INKEY$: IF z$<“1” OR 

z$> “8” THEN GOTO 2020 


; LINE 
“1” THEN 


2040 LETt=u: LET c=u 
2050 CLS : PRINT #p; PAPER 6; 


BRIGHT v;TAB 10;c$(VAL z$); 
TAB 31; “11” 


2055 LET c=c+v: IFc=mn THEN GOTO 
2500 

2060 IF a$(c,v)=“| 1” THEN GOTO 2500 

2070 IF a$(c,v) <>z$ THEN GOTO 2055 

2080 PRINT #p;a$(c,2 TO 9); TAB 10; 
a$(c,10 TO 23); 

2090 LET am=a(c)*100: LETn$=STR$ 
am: PRINT #p;TAB 29;k$;TAB 31 — 
LEN n$;a(c) 

2100 LETt=t+.ale) 

2110 GOTO 2055 

2500 PRINT #p;TAB 25; 


- - - - --.—_ LET tXx=t"100: 
LETN$=STR$ ix: PRINT # p;TAB 
12; ‘TOTAL: — [_1”;TAB 29;k$;TAB 


31 —LEN n$;t 

2510 IF z$ <> ‘"8” THEN GOTO 2590 

2520 LET tz=tt"10®: LETn$=STR$ 
tz: PRINT ps IE IL] 
GESAMTAUSGABEN: — | 1 1”°;TAB 29;k$; 
TAB 31 — LEN n$jtt 

2530 LET ba= (t—tt)'100: LET n$= 
STR$ ba: PRINT ’#p;TAB 10; 
“U |BILANZ: — I 1”;TAB 29;k$;TAB 31 
LEN n$;ba/100 

2590 PRINT PAPER 2; INK 7’ 
“6.16.11 |Weiter mit 
Tastendruck IL IL II IL 1” 

2600 PAUSE u: IF PEEK 23560 = 13 
THEN RETURN 

2610 CLS : GOTO 2000 

3000 GOSUB 800®: IF re=v THEN 
RETURN 

3010 PRINT PAPER 6;AT 10,u;“‘! IGIB EINEN 
DATEINAMEN EINL_|”: INPUT LINE w$: IF 


LEN w$ >10 OR LEN w$ <v THEN GOTO 
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3010 

3020 CLS : SAVE w$ DATA al): SAVE 
w$ DATA a$(): RETURN 

4000 GOSUB 8000: IFre=v THEN 
RETURN 

4010 PRINT BRIGHT v;AT 10,u;‘‘Name der zu 
speichernden Daten?”: INPUT LINE w$: IF 
LEN w$ >10 THEN GOTO 4010 

4020 PRINT PAPER 3; INK 7:AT 10.u; 
“Cassette einlegen,’”““Play druecken | [_1” 

4030 LOAD w$ DATA a(): LOAD w$ 
DATA a$() 

4040 LET cr=u: LET tt=u: FORn=v 
TO mn: IF a$(n,v) = “8” THEN LET 
cr=cr+a(n) 

4050 IF a$(n,1) <> ‘8’ THEN LET 
tt=tt+ an) 

4060 NEXT n: RETURN 

5000 PRINT BRIGHT v;AT 10,u; “Wollen 
Sie einen Ausdruck J/N?I 1” 

5010 PAUSE u: IF INKEY$ =" THEN 
GOTO 5010 

5020 LET z$=INKEY$ 

5030 IF z$= “N” THEN LET p=2: 

RETURN 

5040 IF z$="J” THEN LETp=3: 
RETURN 

5050 GOTO 5010 

6000 LET c=v: IF a(c)=u THEN RETURN 

6010 PRINT AT u,u; BRIGHT v; 

PAPER (VAL a$(c,v)) —v; INK 9; 
“[Nummer|_1”;c,c$(VAL a$(c,v)) 

6015 PRINT PAPER 2; INK 7;”““DATUM 
LIE LIEIEILIBUCHUNGSTEXT 
LILILIBETRAG”: PRINT’a$(c,2 TO 9), 
TAB 10;a$ (c, 10 TO 23); 

6020 LET am=a(c)*100: LET n$=STR$ 
am: PRINT TAB 29;k$;TAB 31 — LEN 
n$;a(c) 

6030 PRINT PAPER 3; INK 7;AT 20,u; 
“TJALI — [JVorwaerts[ | [JO I— [I] 
Rueckwaerts[ JEDITI] — || 
Aufzeichnungsaenderung! | [_|” 

6040 PAUSE u 

6059 IF INKEY$= “0” AND c>v THEN 
LET c=c-v: GOTO 6010 

6069 IF INKEY$= “A” AND c< > mn THEN 
LETe=c+v 

6070 IF a(c)=u THEN LET c=c—v 

6080 IF PEEK 23560 =7 THEN GOTO 6100 

6090 GOTO 6010 

6100 INPUT BRIGHT v; ‘Neue Eingabe: 
Datum[_1”; LINE a$(c,2 TO 9): IF 
a$(c,2)= “I 1” THEN GOTO 6100 

6110 PRINT AT 5,u;a$(c,2 TO 9) 

6120 INPUT BRIGHT v;‘“Neuer 
Buchungstext!_ 1”; LINE a$(c,10 TO 23): IF 
a$ (c,10) =“ 1” THEN GOTO 6129 

6130 PRINT AT 5,10;a$(c,10 TO 23) 

6135 IF a$(c,v) =‘“8” THEN LET 
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cr=cr—alc) 

6136 IF a$(c,v) <>‘“8” THEN LET 
tt=tt—a(c) 

6140 INPUT BRIGHT v;‘‘Neuer Betrag: 
000 ”sa(c): IFa(c)=u THEN 
GOTO 6140 

6150 LET am=a(c)‘100: LET n$=STR$ 
am: PRINT AT 5,29;k$;TAB 31 — LEN 
n$;a(c) 

6160 INPUT BRIGHT v;‘‘Neue 
Kategorie: | 1”; LINE f$: IF f$ =" 
THEN GOTO 6169 

6170 FORn=vTO 8: IF f$=c$(n,v 
TO LEN f$) THEN GOTO 6190 

6180 NEXT n: GOTO 6160 

6190 LET a$(c,v)=CHR$ (48+n) 

6200 IFn=8THEN LET er=cr-+ a(c) 

6210 IFn<8THEN LET tt=tt+alc) 

6220 RETURN 

7000 GOSUB 8000: IF re=v 
THEN RETURN 

7010 RANDOMIZE USR u 

8000 PRINT PAPER 4;AT 10,9; Bist du 
sicher? [1]? 

8010 PAUSE u: LET re=u: IF INKEY$ 
<>“J” THEN LET re=v 

8020 RETURN 

9000 DATA “HAUSHALT”, “FREIZEIT”, 
“MIETE UND STEUERN” “KLEIDUNG”, 
“AUTOKOSTEN” “FERIEN” “SONSTIGES”, 
“EINKOMMEN” 


Commodore 


10 DIM DS(1,400), D(1,400): CO=0: POKE 
53280,0: POKE 53281,0 

20 DIM N(8), RS(8): FOR I=1 TO 8: READ 
RS(I): NEXT 

30 DATA HAUSHALT, FREIZEIT, MIETE UND 
STEUERN, KLEIDUNG, AUTO 

40 DATA URLAUB, VERSCHIEDENES, 
EINKOMMEN 

50 CO=P: CRS=CHR$(13): DWS= "ER 

SI DDEINEODWAHLTIP?DI” 

99 REM****"* HAUPTOROGRAMM """"""* 

100 PRINT DI] U TAB(IO) 

HAUPTMENUEL III” 

102 PRINT TAB(10) “1. LIDATEN 
EINGEBEN” 

104 PRINT TAB(10) “2. LIDATEN 
ABFRAGEN” 

106 PRINT TAB(10) “3. LIDATEN 
SPEICHERN” 

108 PRINT TAB(10) “4. LIDATEN LADEN” 

110 PRINT TAB(10) “5. LIDRUCKEN 
JA/NEIN” 

112 PRINT TAB(10) “96. 
AENDERN” 

114 PRINT TAB(10) “7. PROGRAMM 
BEENDEN”: PRINT TAB(12) DWS 

120 GET AS:K=VAL(A$): IFK<1 ORK>7 


"u 


DATEN 


THEN 120 
130 ON K GOTO 800,200,300,400,500,600, 
700 
199 REM'***** 2. DATEN ABFRAGEN ******* 
200 GOSUB 959: IF AS=CR$ THEN 100 
210 IFDF=1 THEN OPEN 4,4: CMD 4 
220 GOSUB 1000: PRINT" - —- — — — 


= — — - 688: QJDM”; 
230 A=n(R): TA=12: GOSUB 1230: 
PRINT” = 


240 IFR<>8 THEN 260 

250 PRINT TAB(7) “WJGESAMTAUSGABEN 
U11:9DM”;: A=FR: TA=12: GOSYB 
1230: A=N(R)— FR 

260 IFR=8 THEN PRINT TAB(15) “= 
IBILANZIL1:[YDM”’;: GOSUB 1230 

270 IFDF=1 THEN PRINT #4,CR$: CLOSE 4 

280 GOSUB 900: IF A$=CR$ THEN 100 

290 GOTO 200 

299 REM''**"* 3. DATEM SPEICHERN ****** 

300 GOSUB 459: OPEN 1,1,1,A$: 
PRINT #1,C0: FOR I=1 TO CO 

310 PRINT #1,D$(0,1) + CR$+D$((1,1)-+ 
CR$+STR$(D(,1)) + CR$+STR$(D(1,1)) 

320 NEXT I: CLOSE 1: GOTO 100 

399 REM’***"* 4. DATEN LADEN **""""""* 

400 GOSUB 450: OPEN 1,1,0,A$: 
INPUT #1,C0: FOR I=1 TO CO 

410 INPUT #1,D$(0,1),D$(1,1), D(0,1),D(1,1): 
NEXT I: CLOSE 1: GOTO 100 

449 REM'***"* FILENAMEN EINGABE 

450 INPUT “Ziel li GIB DEN 
DATEINAMEN EIN: KJ;A$: RETURN 

499 REM'*"* 5. DRUCKEROPTION **""*** 

500 PRINT “ji MOECHTEST DU EINEN 
AUSDRUCK (J/N) 2” 

510 GET A$: IFAB< >” AND 
A$< > “N” THEN 510 

520 DF=®: IF A$=“J” THEN DF=1 

530 RETURN 

599 REM****** 6. DATEN AENDERN ***"** 

600 IFCO=® THEN 100 

518 Cü=1: GOTO 1308 

699 REM**""* 7. ENDE 

700 PRINT WB 3°" BIST DU SICHER 
(UN) 2° 

710 WAIT 198m 255: GET A$: IFA$< >“ J” 
THEN 100 

720 PRINT “[J=4”: END 

799 REM’**** 1. DATEN EINGEBEN ******* 

800 IF CO=40® THEN PRINT TAB(10) 
“WI SATISPEICHER VOLL !! ”: GOSUB 
909: GOTO 100 

810 CO=CO +1: D$(9,C0) =": C1=CO: 
RNTODIEE 

820 IFK<>6 THEN PRINT “ MIT 
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’RETURN’ IM DATUM-FELD ZUM 
MENUE” 

830 INPUT “JE =] DATUM: LJ”;D$(0, 
C1): IF D$(0,C1) =" THEN 
C0O=C0-1: GOTO 100 

840 INPUT “= TEXT:QJ”;D$(1,C1) 

850 INPUT “= BETRAG: KJ”D(0,C1): 
GOSUB950: D(1,C1)=R: IF 
A$=CHR$(13) THEN 60 

860 IFK=6 THEN 1369 

870 GOTO 800 

899 REM’*'** WARTEN 

900 PRINT “I RBWEITER MIT TASTE; 
MIT ıRETURNı ZUM MENUE”; 

910 WAIT 198,225: GET A$: RETURN 

949 REM***** RUBRIK ANGEBEN 

BRNO 0 
ROUOBORDITIKI” 

960 FOR I=1 TO 8: PRINT 
“OOTE 5” +RSÄ): NEXT: 
PRINT “1 IL” +DW$ 

970 WAIT 198,255: GET A$: R=VAL(A$) 

980 IF (R<1 OR R>8) AND A$< >CR$ 
THEN 970 

999 IFK=1 AND A$=CR$ THEN 970 

995 RETURN 

999 REM***"* TABELLE AUSGEBEN 

1000 C1=0: PRINT“ =Q”: IF K=6 THEN 
PRINT TAB(12) “ SJEINTRAG NR.:”CQ 

1010 PRINT TAB(19—-LEN(R$(R))/2) R$(R): 
N(R)=® 


1020 PRINT 

1030 PRINT 
“OODATUMOOE 
DOO0000TKX O0 
DOOHOMHHBETRAG” 

1040 PRINT “— — - IRB 
DI”:SC=0 


1050 IFK=6 THEN C1=CO: GOSUB 1200: 
GOTO 1300 

1060 C1=C1 +1: IF D(1,01)=R THEN 
GOSUB 1200: IF DF=® THEN 
SC=SC+1 

1070 IFSC> =1® THEN SC=®: GOSUB 
1280: RN EIEN EM” 

1080 IF C1=400 OR D(9,C1)=® THEN 
FR= ®: GOTO 1100 

1090 GOTO 1050 

1099 REM***** AUSGABEN AUFSUMMIEREN 

1100 FOR I=1 TO CO: IF D(1,1)<>8 THEN 
FR=FR+D(9,l) 

1110 NEXT I: RETURN 

1199 REM***** 3 SPALTEN AUSGEBEN 

1200 PRINT LEFT$(D$(B,C1) +“ ITITIL] 
0000094 IOD’; 

1210 PRINT LEFT$(D$(1,C1) +“ 


O0 


UIID U OU UIUTTDT 
11”,18)+“IDEJDM”; 

1220 A=D(9,C1): TA=8: N(R)=n(R)+A 

1230 A =STR$(A): IFA INT(A)=® THEN 
A$=A$ + “.00” 

1240 IF MID$(A3, LEN(A$) — 1,1) =". 
THEN A$=A$+ “Q” 

1260 PRINT RIGHTSCOOODONDNN 
DOOODOUDODD”+ASTA): 
RETURN 

1279 REM*"*** 14 ZEILEN LOESCHEN 

1280 GOSUB 900: IFA$=CR$ THEN 100 

1290 PRINT “EI I] I In] IR]: FOR I=1 
TO 14 

1295 PRINT UUDUUDUUDOUUUO 

Jooco000000000 

O0O0000000000%% 
NEXT I: RETURN 

1299 REM***"* Wahl BEI (6) 

1300 PRINT “EIER (;) — ZURUECK”, 

“(.) -VORWAERTS” +CRS+ "I 
(LEERTASTE) — AENDERN” 
1310 WAIT 198,255: GET A$: IF Aß=CR$ 


rura ann 
IMEN IWW 


1320 IF A$= “1” THEN 820 
1330 IFA$=“.” THEN CQ=CQ +1: GOTO 
1360 


III] 


1340 IFAS< >,” THEN 1310 

1359 CQ=CQ—1: IFCQ<1 THEN CQ=CO 
1360 IF CQ<CO THEN CQ=1 

1370 R=D(1,C0): GOTO 1000 


Variablenbeschreibung: 
AS-Hilfs- und Eingabevariable 
CO-Anzahl an eingegebenen Daten- 
sätzen 

D(®,1)—-Betrag für Datensatz 

1.8 <I<AO® 
D(11)-Nummer der Rubrik 
DS(@®,1)—-Datum für Datensatz 

1.8 <I<IDO® 
DS(1i)—-Text für jeweilige Eingabe 
K-Nummer des Menüpunkts 
N(8)—-Summe der Einzahlungen je 
Rubrik 
R-Nummer der gewählten Rubrik 
RS(8)—-Name der jeweiligen Rubrik 


100 OPEN #5,4,0,‘K”’:POKE 82,1 

110 GOSUB 1689 

120 PRINT CHR$(125);L$;‘“ Hauptmenue’’: 
PRINT :POKE 710,192:CH=® 

130 PRINT L$;‘1...Daten eingeben” 
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140 PRINT L$;“2...Daten abfragen” 
159 PRINT L$;‘“3...Daten speichern” 

160 PRINT L$;‘‘4...Daten laden” 

170 PRINT L$;‘‘5...Drucken Ja/Nein” 

180 PRINT L$;“6...Daten aendern” 

190 PRINT L$;“‘7...Programm beenden” 

200 PRINT :PRINT ‘Deine Wahl:”: 
$=1:G0SUB 430 

210 GET #5,T1:T=T—48:0N T GOTO 470, 
650,970,1070,11690,1230,1650:G0TO 210 

220 POSITION 2,18:FOR T=1 TO 4:PRINT 
CHR$(156);:NEXT T:RETURN 

230 GOSUB 229:PRINT “Deine Eingabe ”’;: 
INPUT W$:RETURN 

240 X= PEEK(85):Y = PEEK(84):FOR Q= 1 
TO 9:PRINT CHR$(156);:NEXT Q: 
RESTORE 1809 


250 POSITION 1,Y:FOR Q=1 TO 8:READ WS: 


PRINT Q;““ — ”;W$:NEXT Q:PRINT 

260 PRINT “Welche Rubrik ?”; 

270 GET #5,K:KA=K48:1F KA<1 OR 
KA>8 THEN 270 

280 POSITION 1,Y:FOR Q=1 TO 10:PRINT 
CHR$(156);:NEXT Q:POSITION X,Y 

290 RESTORE 1800:FOR Q=1 TO KA:READ 
WS:NEXT Q:RETURN 

300 GOSUB 220:PRINT “FEHLER — ";PEEK 
(195);“ IN ZEILE ”;PEEK(186) + 256" PEEK 


(187) 
310 S=11:60SUB 420:60T0 440 
320 X$="UIMMIN.00”:BX= INT 
(BX"100 + 0.5)/100 


330 X$(6) =STR$(BX — INT(BX)) 

340 LE=STR$(INT(BX)):X$(7 — LEN(L$), 
7)=L1$:X$(10) =*":GOTO 410 

350 X=PEEK(85) — 1:Y = PEEK(84):GOSUB 
220:PRINT “Deine Eingabe ?”’;:POSITION 
X,Y:|=0 

360 ? CHR$(31);:1F PEEK(93)=® THEN 
X=X+1:POKE 85,X:1F X<17 THEN 360 

370 PRINT CHR$(31);:0= (PEEK(93) = ®) 

380 IFI AND Q THEN POKE 85,X 

390 I=0:0N PEEK(764) = 255 GOTO 370 

400 POSITION 15,18:1NPUT W$:RETURN 

49 1$=*11”:1$(10)=*I”:L$2)=L$: 
RETURN 

420 FOR L=1 TO 2:G0SUB 430:NEXT L 

430 FOR T=15 TO ® STEP — 0.6:SOUND 


0,0+5S’10,10,1:SOUND 1,1+S’10,10, T: 


NEXT T:RETURN 

440 PRINT “Weiter mit RETURN”’;:GET 
#5,T:G0T0 120 

450 POSITION 4,8:PRINT “Eingeben:”’:PRINT 
““Geraet:Dateiname”’:INPUT W$:IF LEN 
(W$) THEN RETURN 

460 POP :GOTO 120 

470 IF LEN(DAT$) +60 >SP THEN GOSUB 
220:PRINT “Speicher voll:S = 25:G0SUB 
420:G0T0 120 

480 PRINT CHR$(125):PRINT “Eingabe”: 
R$=“[1”:R$(50) =R$:R$(2)=R$ 

490 POSITION 2,4:PRINT ‘“Datum 
UIUO000:” 

500 GOSUB 230:1F WE =" THEN 120 
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510 R$(2,9) =W$:POSITION 14,4: 
PRINT R$(2,9) 

520 POSITION 2,6:PRINT “Text 
Ü ET EI 

530 GOSUB 230:R$(17) =W$:POSITION 
14,6:? R$(17) 

540 POSITION 2,8:PRINT “Betrag 
I 

550 GOSUB 230:TRAP 550:BX = VAL(W$): 
TRAP 32767 

560 IF BX> 9999.99 OR BX<® THEN 550 

570 GOSUB 320:R$(10,16) =X$(3) 

580 POSITION 14,8:PRINT R$(19,16) 

590 POSITION 2,10:G0SUB 240:PRINT 
“Rubrik [I UI [1 11?;W$:R$(1,1) = CHR$ 
(KA) 

600 GOSUB 220:PRINT “Ist die Eingabe 
richtig? (J/N)”’;:S=1:G0SUB 430: GET 
#5,K 

620 IFK< >74 AND K< >106 THEN 

VI 


PNONN NANM.DDIKT KNATT ırUuırT 
UUVDUD ZZV.FnNII VAIEN NIUMI 


GESPEICHERT!”:S= 25:G0SUB 420:G0T0 
470 

620 DAT$(LEN(DAT$) +1) =CHR$(LEN 
(R$)):DAT$(LEN(DAT$) +1)=R$ 

630 IFKA=8 THEN EIN=EIN + BX:GOTO 
470 

640 AUS= AUS + BX:GOTO 470 

650 IF DAT$ =" THEN GOSUB 220: 

PRINT ‘‘Keine Daten vorhanden!”:S = 25: 
GOSUB 420:G0T0 120 

660 PRINT CHR$(125):G0OSUB 240 

670 W$ =“"E’:IF D THEN W$ = “P”:TRAP 
1210 

680 CLOSE #1:0PEN #1,8,0,W$:TRAP 
32767:POKE 710,192 

690 N=1:5SUM=® 

700 RESTORE 180®:FOR I=1 TO KA:READ 
WS:NEXT | 
710 PRINT #1:PRINT #1;W$:W$(1,1) = 
“—":W$(2) =W$:PRINT #1;W$:PRINT 
#1 

720 W$ = “I 1”:W$(100) = “| 1”:W$(2) = 
W$:W$ = “Datum”:W$(11) = ““Text”’:W$ 
(32 + 25°D) = “Betrag”’:PRINT #1;W$ 

730 W$(1,1) =" — ":W$(2) =W$:PRINT #1; 
w$ 

740 TRAP 860:X= ASC(DAT$(N)) + 1:KS = 
ASC(DAT$(N + 1)):TRAP 32767 

750 IFKS<>KA THEN 840 

760 RR=DAT$(N+1,N+X—1) 

770 IFNOT D AND PEEK(84) >18 THEN 
POSITION 1,4:PRINT 
CHR$(156);:POSITION 1,18 

780 W$ =“ [1”:W$(100) = W$:W$(2) =W$ 

790 W$ = R$(2,9):W$(11,29+25°D)=R$ 
(17) 

800 W$(32 + 25°D) =R$(10,16):PRINT 
#1;W$ 

810 SUM=SUM + VAL(R$(10,16)) 


820 IF PEEK(764) = 255 THEN 840 

830 GET #5,K:ON (K=27 OR K=155) 
GOTO 120:GET #5,K 

80 N=N+X 

850 GOTO 740 

860 IF PEEK(195) < >5 THEN CLOSE 
#1:G0T0 300 


870 IF NOT SUM THEN PRINT #1; KEINE 
DATEN!”:GOTO 950 

880 W$(1,1)= “= ":W$(2) =W$:PRINT 
#1;W$ 

890 W$(1,1) =“ I1”:W$(2) = W$:W$(23+ 
25*D) = ““Summe:” 

900 BX=SUM:GOSUB 320:W$(30 + 25° 
D)=X$ 


910 PRINT #1;W$:PRINT #1:PRINT #1 

920 IFKA<>8THEN 950 
30 BX = AUS:GOSUB 320:PRINT #1; 

[1] [Deine Gesamtausgaben [IL] 

DM ”;X$ 

940 BX=EIN — AUS:GOSUB 320:PRINT #1; 

“JO DDie Bilanz ist I IOITITILI TI 
UODIDM ”;X$ 

959 eiast #1:!F NOT D THEN PRINT :GOTO 
440 

960 GOTO 120 

970 POKE 710,16:|F DAT$="" THEN 650 

980 PRINT CHR$(125):PRINT L$;‘“Daten 
speichern” 

990 GOSUB 450: 1F W$(1,1)=""D’” THEN 
TRAP 1010:CLOSE #1:0PEN #1,4,0,W8: 
TRAP 32767 

1000 PRINT ‘Datei ueberschreiben? 
(J/N)”:S=25:G0SUB 430:GET #5,K:IF 
K< >74 AND K< > 106 THEN 990 

1010 TRAP 1060:CLOSE #1:0PEN 
#1,8,0,W$:T = 1 

1020 PRINT “Schreibe Datei ”;CHR$(34);W$ 
CHR$(34) 

1030 PRINT #1;EIN:PRINT #1;AUS 

1040 PRINT #1;DAT$:CLOSE #1 

1050 TRAP 32767:G0TO 120 

1060 PRINT :PRINT :GOSUB 420:CLOSE 
#1:PRINT “ERROR — ”;PEEK(195); 

‘“ beim Speichern ”;W$:GOTO 440 

1070 POKE 710,16:PRINT CHR$(125):PRINT 
L$;“Daten laden”’:S = 20:G0SUB 430 

1080 GOSUB 450:TRAP 1150:CLOSE 
#1:0PEN #1,4,0,W$ 

1090 PRINT :PRINT “Lade ”;W$:POKE 
710,210 

1100 INPUT #1,EIN:INPUT #1,AUS 

1110 L=USR(ADR(ML$),16,7,ADR(DAT$), 
SP):IF NOT L THEN POKE 195,163: 

GOTO 1150 

1120 IFL=SP THEN TRAP 1130:GET 
#1,A:TRAP 1070:G0T0 1140 

1130 DAT$(L) = “":S=9:GOSUB 430: 

GOTO 129 
1140 GOSUB 22®:PRINT “Speicher voll!”’:? 


Programmier-Service 


“Datei unvollstaendig geladen!”:S = 25: 
GOSUB 420:G0TO 440 

1150 POSITION 2,20:PRINT “ERROR — ” 
PEEK(195);‘“ beim Laden ”;W$:S = 25: 
GOSUB 420:G0TO 440 

1160 GOSUB 229:PRINT “Drucken ? (J/N) ”; 
GOSUB 430 

1170 GET #5,K:D= (K=74) + (K= 106) 

1180 GOSUB 22®:IF NOT D THEN PRINT 
“Drucker ausgeschaltet”:GOSUB 420:G0T0 
120 

1190 TRAP 1210:CLOSE #1:0PEN 
#1,8,0,“P”:CLOSE #1 

1200 GOSUB 220:PRINT “Drucker 
eingeschaltet”’:GOSUB 420: GOTO 120 

1210 GOSUB 22®:PRINT “... und wo ist der 
Drucker???”:S=27:G0SUB 420 

1220 FOR T=1 TO 100:NEXT T:D=®: 
GOTO 1180 

1230 IF DAT$ =" THEN GOSUB 220:PRINT 
“Keine Daten vorhanden!”:S = 25:G0SUB 
420:G0T0 120 

1240 N=1:D5=0:DS1 = 

1250 TRAP 1390:0FF=ASC(DAT$(N)) +1 
TRAP 32767 

1260 R&=DAT$(N +1,N+OFF—1):DS = 
DS +1:1F DS<DS1 THENN=N-+OFF: 
GOTO 1250 

1270 PRINT CHR$(125):PRINT “| |Datensatz 
L1”;DS:POSITION 2,4:PRINT “Datum! |! | 
200:0°;R$(2,9) 

1280 POSITION 2,6:PRINT “Text III ILL] 
11:11”: W$ = R$(17):1F LEN(W$) > 20 
THEN W$(21) =" 

1290 > W$ 

1300 POSITION 2,8:PRINT “Betrag IL I [IL] 
1;R$(10,16) 

1310 POSITION 2,10:PRINT “Rubrik I [1 U] 
Ara 

1320 KA=ASC(DAT$(N + 1)):GOSUB 290: 
PRINT W$ 

1330 GOSUB 229:PRINT ‘““V(orwaerts) 
Z(urueck) A(endern)”:PRINT ” [RETURN] 
— Menue” 

1340 GET #5,K:IF K=155 THEN 120 

1350 IF K=65 THEN 1410 

1360 DS1=DS1+(K=86) — 
DS1<1 THEN DS1=1 

1370 ON DS=DS1 GOTO 1340: N=N-+OFF: 
IF DST<DS THEN N=1:DS=® 

1380 GOTO 1250 

1390 IF PEEK(195) < >5 THEN 300 

1400 N=N — OFF:DS1 =DS1 — 1:G0TO 1340 

1410 RL=LEN(R$):POSITION 14,4:G0OSUB 
350 

1420 IFW$< >" THEN R$(2,9) =L$:R$ 
(2,9) =W$:POSITION 14,4:? R$(2,9) 

1430 POSITION 14,6:G0SUB 350:|F WE =" 
THEN 1460 

1440 IF LEN(W$) >30 THEN W$(31) = 


(K=90):1F 


1450 R$(17) = W$:POSITION 14,6:PRINT L$; 
L$:POSITION 14,6:PRINT R$(17) 

1460 POSITION 14,8:G0SUB 350:1F WE =“ 
THEN 1500 

1470 TRAP 1460:BX = VAL(W$):TRAP 
32767:|F BX<® OR BX > 9999.99 THEN 
1460 

1480 GOSUB 320:CH = VAL(R$(10,16)):R$ 
(10,16) = X$(3):BX = VAL(W$):POSITION 
14,8:PRINT R$(10,16) 

1490 GOSUB 229:? R$:? W$:GET #5,K 

1500 GOSUB 220:PRINT ‘“Rubrik aendern 
(J/N) ”5:GET #5,K:IF K< >74 AND 
K< >106 THEN 1520 

1510 POSITION 2,10:G0SUB 240:R$(1, nn 
CHR$(KA):PRINT “Rubrik IL JI IE 1:11” 
w$ 

1520 IF NOT CH THEN 1550 

1530 KA=ASC(R$):W$ = R$(10,16):1F 
KA=8 THEN EIN=EIN— CH + BX: 
GOTO 1550 

1540 AUS=AUS—CH-+BX 

1550 IF LEN(R$)—=RL THEN DAT$(N +1, 
N+OFF—1)=R$:60T0 120 

1560 DAT$(N,N) =CHR$(LEN(R$)) 

1570 IF LEN(R$) <RL THEN DAT$(N +1,N + 
LEN(R$)) = R$:DAT$(N + LEN(R$) +1) = 
DAT$(N + OFF):GOTO 120 

1580 GOSUB 2290:? “MOMENT BITTE...” 

1590 X=LEN(R$) — RL:Y=LEN(DAT$):IF 
X+Y> =SP THEN GOSUB 220:? 
“SPEICHER VOLL!”:S = 25:G0SUB 42: 
GOTO 120 

1600 FOR I=Y TO N-+OFFSTEP — 1 

1610 DAT$(l + X,1+X) = DAT$(I,|) 

1620 NEXT | 

1630 DAT$(N + 1,N + LEN(R$)) = 

1640 GOTO 120 

1650 PRINT CHR$(125):POKE 710,16:PRINT 

M(enue) / B(ASIC) ?”;:GET$5,T:IF 
T< >66 THEN 120 

1660 POKE 82,2:GRAPHICS ®:END 

1670 REM Initialisierung 

1680 DIM W$(100),ML$(57),R$(50),L$(10), 
x$(10) 

1690 SP=FRE(®) — 100:DIM DAT$(SP) 

1700 RESTORE 1720:FOR I=1 TO 57:READ 
P:ML$(I) = CHR$(P):NEXT | 

1710 GOTO 410 

1720 DATA 104,104,104,170,104,104,157 

1730 DATA 66,3,104,157,69,3,104,157 

1740 DATA 68,3,104,157,73,3,104,157 

1750 DATA 72,3,32,86,228,48,11,189,72 

1760 DATA 3,133,212,189,73,3,133,213 

1770 DATA 96,169,0,133,212,133,213 

1780 DATA 189,67,3,201,136,240,232 

1790 DATA 133,195,96 

1800 DATA Haushalt,Unterhaltung,Mieten und 
Steuern,Kleidung,Auto,Ferien, Verschiedenes, 
Einkommen 
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Handelsbilanz 


{ 


ME 


! 
er ] EWR "el 


In diesem Artikel verabschieden 
wir uns von der Neuen Welt 
segeln nach Hause, um.die neu 

erworbenen Waren zu verkaufen, 


e & 
—_  — en - 
Pi 


orihrer Hei a ein Rivale des 


Häuptlings heimlich Ihr Schiff, Der Rebell 
“will Waffen kaufen, um den Häuptling zu unter- 
werfen, und bietet 30 Perlen für jede Waffe. 
Wenn Sie dem Handel zustimmen, machen Sie 
einen erheblichen Gewinn. Doch sollte der 
Häuptling bei einem Scheitern des Putsches 
feststellen, daß Sie die Waffen verkauft haben, 
wird er sich rächen. 

Selbstverständlich können Sie das Angebot 
ablehnen. In diesem Fall erweist sich der 
Häuptling dankbar und stattet Sie mit Vorräten 
für die Heimfahrt aus, einschließlich weiterer 

Perlen als Belahring Obwohl der Putsch 

ussicht auf Erfolg hat, sind die Folgen bei 

„feinem Mißlingen schrecklich. Der 

gibt den Befehl, Ihr Schiff zu vernichten. ie a 

, Zeiten kommen auf Sie zu. 

Können Sie disse Katastrophe verhindern. 

| Mannschaft ist in m ter erg und der 

Ks teht günstig, daß die Reise nur acht 

1 EA RIR Schiff den Hafen er- 

We können die Waren verkauft, die Mann- 

schaft bezahlt und, mit Glück, ‚Gewinne erzielt 
werden. een das Geld nicht zum Bezahle: 


der Mannschaft aus, ‚können Sie das Schiff verr 


kaufen. 
einen Bericht über die Fahrt. \ 


äuptling._ 


Schließlich erstellt das Programm) 
\ nehmen, belohnt Sie der amtiere 


BASIC-Dialekte 


Spectrum: 

setzen Sie im gesamten Programm AO() durch 
EO, V1O) durch B() und V2() durch D(). Ändern 
Sie außerdem: 


10310 CLS:GO SUB 9200 e 


10328 INPUT IS:LET I$=1$(TO 1) 

10354 LET IS=INKEYS:IF I$=*" THEN GO TO 
10354 

10400 CLS:GO SUB 9200 

10501 CLS:GO SUB 9200 

10547 LET I$S=INKEYS: IF I$=“" THEN GO TO 
10547 


Acorn B: 
Ändern Sie das Programm wie folgt: 


10310 CLS:GO SUB 9200 
10354 I$=GET$ 

10400 CLS:GOSUB 9200 
10501 CLS:GOSUB 9200 
10547 I$=GET$ 


] 


der Programmlauf Imit Zeile 1020 a 
a der Er ernannte H: uptlin 
Schiff vor der Abfahrt mit Proviant. | 
Die Gleichung in Zeile 10429 berechnet die, 
wän Perlen, die Sie für die Waffen erhal-. 
. Hierzu wird die Weit hanzall OA(2) mit 30 

m rt Der ermittelte Wert wird zum er- 
sten Element von AO() addiert. In Zeile 10430 
werüe ale VVvalle au Ue VO a av ge 
löscht. Für den Rest des Programms ist das 
nicht unbedingt notwendig, doch es erleichtert 
eine Erweiterung des Spiels, etwa für Zwi- 


schenfälle auf der Heimreise. 


| 
Wenn Sie das Angabot des Rebgtien Dight an- 
nde Häuptling 


Das Hauptprogramm ruft. in Zeile 893 eine vielleicht mit 50 Perlen. Darüber! entscheidet 


Unterroutine (Zeile 10300) auf, die das Ange- 
bot zum Waffenhandel beinhaltet. Zuerst über- 
prüft das Programm, ob überhaupt Waffen an 


Bord sind. Hierzu wird in Zeile 10305 das. 
zweite Element des Vorrats-Arrays, OA(2), un- 
 tersucht, in dem die Anzahl der Waffen ge- 


eichert ist. Ist der Wert O, erfolgt der Rück- 
sprung.zum Hauptprogramm. Sind Waffen ver- 
fügbar, macht der Rebell sein Angebot. Sie 
werden nun dürch Zeile 10326 alligeiptgeii X 
oder N einzugeben. 

Wenn Sie sich für den Wa enhandel ent- 
scheiden, verzweigt die Routine zu 0400, 
Es besteht eine 75prozentige Chance, daß 
Programm zu Zeile 10450 verzweigt (Scheitern 
des Aufstands). Wenn Sie wollen, können Sie 
diese Chancen entsprechend Ihren Ansichten 
über Fair play ändern. 

Ist die Revolte vereitelt, holt sich der 
Häuptling die gehandelten Waren wieder vom 
Schiff und setzt es in Brand. Andernfalls wird 


der Zufall in-Zeile 10345. Die letzte Unterrou- 
tine beginnt ie; Zeile 10500 und 166 die 


Heimreise und den Warenverkauf.. 


m Zeile 10812\ wird die Variable WW ange- N 


legt, in der die \Gehaltsabrechnung für die 
Heimreise gespajaher: wird. Der Wert wird in 
der Schleife ab Zeil net. Die-For- 


mel multipliziert die Anzahl jedes Mann- 
schaftstypes, CC(T), mit dem jeweils entspre- 
chenden Wochenlohn WCG(T). Der Schleifen- 
zähler Tgewährleistet, dad dieser Vorgang für 
jeden Mannschaftstyp wiederholt wird. An- 
schließend wird der Gesamtwochenlohn be- 
hnet. Zur Kalkulation des Gesamtlohnes für 
die ird dieser neue Gesamtwert 
mit acht multipliziert. 

Die Marktpreise der erhandelten Güter wer- 
den durch das Array V2(3) angegeben und in 
Zeile 62 DIMensioniert. Die einzelnen Preise 
werden bei Programmstart per Zufall bestimmt. 
Mittels der Zeilen 10532 bis 10536 werden die 


Perlen als Belehhung 


versorgt Gasen 


Modul Dreizehn: 
Die Reise endet 


“wee-| Ergänzungen am Hauptprogramm 


IEiaz0a 
IBiaSan 


Putsch-Routine 


REM REWOLUTION 
IFoR« STHENFETURN 
18316 FRINTCHRE( 147): GOSLUBFZAH 


19215 S$="bURING THE NIGHT A RIVAL OF THE*":5OSUERF 
166 


S$="CHIEF VISITS THE SHIP IN SECRET#" :GOSUEF 


a FRINT:SOSUBF2@8 
} S="HE WANTS TO BUY YOUR GUNS FÜRS" :GOSUBFIA 
ara Ir St="A REVOLUTION®" :50SUBFIER 
\ FRINT:GOSUBF28 
S$="HE ÜFFERS You 34 FEARLS PER GUN#" :GOSUBF 


Ss$="DO YOU SELL HIM THE GUNSTCY/ND*" :GOSUEFI 


; INFUTIS:I$=SLEFTFCI$, 1) 
IFI$SSH"N"ANDISC>"Y"THENIO328 

IFI&="\" THEN16448 

PRINT: GOSUBFZAB 

36 S$="THE CHIEF FINDS QUT AND 15*":G0SUEF1AA 
St="PLEÄSED WITH YOL*" :GOSUBFIAR 

S5$="HE GIVES YOU FREE FROVISIONS=":GOSUEFIAH 
Sst="FÖR THE JOURNEY BACK#" :GOSUB71G8 
GOSLUBFZAR 

345 IF RND<19<X.75 THEN 18358 

S$="AND 56 PEARLS!!#":GOSUBF1OR 
ADCLI=ADLLI+SE 

168556 FRINT:GOSUEFZAR 

168352 5$=K$:6051B7188 

18354 GETI$:IFI$=""THEN18354 

18357 RETURN 

14486 PRINTCHRE (1479: 60SUBF288 

10445 IFRND(1D<.7STHENI8456 


18418 S#="THE REVOLUTION IS SUCGESSFUL#" :GOSUBFIOR 
14412 PRINT:GOSUBF2AH 

18415 St="THE NEW CHIEF REWARDS YOL WITH*" :50SUBF1 
aa 


108428 S$="FREE PROVISIONS FÜR THE RETURN*" :G0SUBF1 


169425 58=" JOLRNEY.#*" :5OSUEFLER 

18427 A0OcCı)=ADELI+LOAC2I=#38) :REM ADD PEARLS 
10438 OQAlZ2)=8 

18431 G0T016358 

18456 5$="THE REVOLUTION FAILS!!*":G0SUBF1AA 
KREBS HERNE | 14452 PRINT :GOSUBFZB6 


} 


16455 S$="THE OLD CHIEF I5 ANGRY WITH YOls":GOSUEF 
186 

18457 St="HE EURNS YOUR SHIF AND STEALS#" :GOSUBF1E 
a 


164453 St="EVERYTHING! !*" :GÜSUBF1AA 
18457 PRINT :50SUB?288 

1468 St=" GAME QVER!!#":50SUBF1AR 
18452 END 

144654 GOTO18482 


Ende-der-Reise Routine 


15566 REM END OF “WOYaG 
18561 FRINTCHR&(147 

14565 5t="WITH A STRONG CREW AND GO0D«" 
168567 S$="WINDS THE JOURNEY BACK GOES#" 
16583 S$="WELL AND TAKES ÜNLY 3 WEEKS#":{ 
18512 WW=h 

16514 FORT=1TOS 

1851& Wuzelll+ CS-CCETI#WIGETI 5 

168518 NEXT 

18519 FRINT:GÜSUEFZER 

15528 5$="WAGE BILL FOR RETUFN VOYAGE = #":G0SUBF1 


uBr1an 
LEFIGR 
SUBFIaR 


18522 PRINTWW:S "GOLD FIECES" 
154524 PRINT:GOSUBFZUR 
S$="WHEN YOU GET BACK«" 
St="YOU SELL YOuR TRADIN 


SOSUE?108 


PRINT"PEARLS - ":V2 
FRINT"CARUINGS - 
36 PRINT"SPICES — "4V2C33 
FRINT:S$="YOU GET A TOTAL OF*": 
18548 x=(ADCLIRUZEL II HLAOLDI UZC ZI I HLADCHI RU ZCHI) 
18542 PRINTX;"GOLD PIEC 
PRINT :5$=K#:G0S5SUB Fl 

GET I&:IF I#="" THEN 105497 

S$="YOU NOW HAVE:#":GOSUBFLAU 

2 PRINTMO+X: "GOLD FIELES" 

FRINT:GOSUBFZAR 

S$="THE WAGE EILL FÜR THE VOYAGE 15*":GOSUEF 


FRINTWT+WW GE "GOLD FIECES" 

PRINT :GOSUBFZUH 

St="YüOll END THE GAME WITH:*" :6OSUEFI AH 

Z=MO+K-WT U 

PRINTZ;"GOLD FIECES" 

PRINT :GÜSUBFZAA 

FRINT ="YOur RATING 15:#" :6G0SUEFLAM: PRINT 
3 IF 2>3264 THEN S$="ARCH CAPITALIST#":GOSUB 7 

168: END 

14567 IF 2>2564 THEN 5 

END 

18578 IF Z>2a04 THEN St="MERCHÄNT CLASS III" :60SU 

EF1AA:END 


="MASTER TRADER*"GOSI. 1aB: 


14571 IF Z>1aA8 THEN St="A FROFER JONAH*":GOSUB Fi 
aa :END 
1 "MORE ÖF A DUCK THAN A DRAKE*" 


UBFLAB:END 


Een w geha delte Ware dargestellt. 


| a und in X gespeichert. Die verwen- 

- ' dete Formel multipliziert di nge jede 

! Handelsgu es, verzeichnet in 

aktuellen V2() gespeichert en M a 
Die Einze lerlöse us Perlen, Shnitzete reien und 
Gewürzen werden addiert, und anschließend 
wird das Gesa terge nis dargestellt. 

Es ist durchaus möglich, daß das Startkapital 

-von 2000 Goldstücken bei Reisebeginn nicht 
vollständig ausgegeben wurde. Jegliches Rest- 
guthaben ist in der Variablen MO gespeichert 
und am Ende zu dem durch Handel erhaltenen. 
Gold addiert. ! i { 

Die Lohnabrechnung für die komplette Fahrt 
findet in Zeile 10557 statt, indem die Löhne für 
die Hinreise (WI) mit den Löhnen fü 
Heimreise addiert werd rrechnet 

andelsprofit, indem es 
die Gesamtlöhne vom Kapital subtrahiert. Ab- 
schließend wird angegeben, wie erfolgreich 
Sie waren, indem eine Beurteilung, basierend 
auf der Höhe des auf der Reise erzielten Ge- 
winns, ermittelt wird. 


in diesem Amay gespeicherten Werte für jede 


Der Gesamterlös an Gold wird in Zeile/10540 


O(), mit sem A 
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MIDI-Rock 


Wir starten ein neues Projekt im Selbstbaukurs: Entwurf und 
Konstruktion eines MIDI-Interface für den Acorn B oder Commodore 
64. Zum Auftakt erläutern wir das MIDI-Konzept und seine 


Anforderungen an die Hardware. 


IDI ist die Abkürzung für Musical Instru- 

ment Digital Interface (Digitale Schnitt- 
stelle für Musikinstrumente). MIDI-Schnittstel- 
len haben festgelegte Eigenschaften, die eine 
Verbindung der nach diesem Standard ausge- 
rüsteten Geräte erlauben. Der Datenaustausch 
geht digital vor sich. Also kann auch ein Heim- 
computer in ein MIDI-System integriert wer- 
den, sowohl zur Steuerung von elektronischen 
Instrumenten als auch zum Speichern von Da- 
ten. Ein MIDI-Interface kann leicht auf einer 
Zusatzplatine aufgebaut werden; der mate- 
rielle Aufwand hält sich in Grenzen. 

Seit Einführung der MIDI-Spezifikationen im 
August 1983 gab es über die Leistungsfähig- 
keit von MIDI eine Vielzahl von Mißverständ- 
nissen, nicht zuletzt deshalb, weil viele Musi- 
ker elektronischen Instrumenten eher mit Des- 
interesse begegneten. Und die musikalischen 
Möglichkeiten wurden zu Beginn wohl auch 
ein wenig nachlässig und ungenau dargestellt. 

In unserem Kurs wollen wir die Eigenschaf- 
ten von MIDI in den Begriffen des Program- 
mierers erklären, ohne daß der Computer den 
Musikern unter Ihnen den Spaß verderben 
soll. Sie erhalten die gleichen Grundinforma- 
tionen, die auch ein Entwicklungsingenieur für 
die Gestaltung eines MIDI-kompatiblen Gerä- 
tes zur Verfügung hat. 

Zuerst einmal benötigen wir eine ungefähre 
Vorstellung vom Ablauf der Datenübertragung 
mit MIDI. Dazu betrachten wir die verschiede- 
nen Teile eines elektronischen Musiksystems 
als Peripherie eines Computers. Diese Eintei- 
lung ist bei manchen Geräten nicht sofort zu 
erkennen, trotzdem besteht beispielsweise ein 
mehrstimmiger modemer Synthesizer aus zwei 
Komponenten in einem Gehäuse: Tastatur (für 
die Eingabe) und Tonerzeugungsschaltung 
(Ausgabeeinheit). Normalerweise sind Ein- 
und Ausgabeteil direkt gekoppelt — sobald Sie 
eine Taste drücken, wird auch der gewünschte 
Ton erzeugt. 

Diesen Aufbau kann man mit der Arbeits- 
weise einer modernen elektronischen Schreib- 
maschine vergleichen: Auch hier sind Tastatur 
und Schreibwerk so zusammengeschaltet, daß 
nach einem Tastendruck sofort ein Zeichen ge- 
druckt wird. Dennoch sind die Einzelkompo- 
nenten leicht als unabhängige Teile eines zen- 
tralen Computers zu erkennen, der über die 
Tastatur eingegebene Daten zuerst verarbei- 


tet, bevor er sie an die Ausgabeeinheit weiter- 
leitet. Diese Arbeitsweise haben wir bereits 
unter der Bezeichnung „Textverarbeitungs- 
system“ kennengelernt. 

Bei einem Synthesizer arbeiten die internen 
Schnittstellen des Gerätes zwischen Tastatur 
und Klangerzeugungseinheit bereits digital. 
Die Tastatur dient dabei zur Steuerung des 
Synthesizers, ähnlich wie die Tastatur der 
Schreibmaschine das Druckwerk steuert. 
Diese Verbindung läßt sich aber leicht auflö- 
sen. Zwischen beiden Einheiten vermittelt 
dann der Computer, und aus dem Syntheziser 
ist ein vielseitig einsetzbares Musik-,Verarbei- 
tungssystem" geworden. 

Die „Musik“ ist in diesem Fall nicht mehr ein 
Muster von Luftschwingungen, wie es bei der 
Wiedergabe über einen Plattenspieler produ- 
ziert wird. Sie wird vielmehr als eine Reihe von 
„Ereignissen“ verarbeitet. Die Eingabe der Er- 
eignisse erfolgt über die Tastatur, danach wer- 
den sie zur Ausgabeeinheit weitergeleitet. Erst 
die Schaltungen zur Klangerzeugung sind es, 
die diese „Ereignisse“ in elektronische Si- 
gnale umsetzen und sie über Verstärker/Laut- 
sprecher zu Tönen umformen. Damit kann 
MIDI aber auch andere Steuereinheiten als nur 
Tastaturen nutzen. Auch ein Saiten- oder Blas- 
instrument könnte diesen Zweck erfüllen, so- 
fern es über eine Ausgabeeinheit nach MIDI- 
Spezifikationen verfügt. 


Die gute alte Zeit 


Ein gutes Beispiel für ein bekanntes, wenn 
auch etwas grobes Musik-Verarbeitungssy- 
stem stammt aus einer Zeit, in der Computer 
noch nicht einmal Zukunftsmusik waren: Das 
Pianola ist ein Klavier, das auf einer Papierrolle 
eingestanzte Löcher in Musik verwandeln 
kann. Beim Transport des Papiers durch einen 
Fühlermechanismus wird das Lochmuster ab- 
getastet, wobei jede Lochposition einer ganz 
bestimmten Note entspricht. Die Hämmer des 
Klaviers schlagen exakt nach den Anweisun- 
gen dieses papierenen Datenträgers die ent- 
sprechenden Saiten an. 

Der Abstand eines Loches von der Kante 
des Papierstreifens definiert die Klanghöhe, 
und die Länge des Loches gibt an, wie lange 
der Ton gehalten werden soll. Beim Pianola ist. 
auch eine Bearbeitung von Musikstücken mög- 


lich: Ein falsch gestanztes Loch kann überklebt 
und durch ein neues ersetzt werden. Von der 
Toncodierung mit dieser Technik führt ein di- 
rekter Weg zu den Lochkartensystemen der 
ersten Computer. 

Einen modernen Musikprozessor kann man 
sich als verbesserte Version der alten Pianola- 
Technik vorstellen. Das Papier ist dabei durch 
den Speicher des Computers und magneti- 
sche Aufzeichnungsgeräte ersetzt. Die Bear- 
beitung der Musik besteht heute in der Verän- 
derung der Speicherinhalte des Computers 
durch ein entsprechendes Programm. 

Bevor wir uns damit eingehender beschäfti- 
gen, müssen wir ein paar Grundlagen von 
MIDI genauer kennenlernen. Dazu gehören 
die Methode der Datenübertragung und das 
Datenformat. Diese beiden Faktoren entspre- 
chen den Hard- und Softwareeigenschaften 
der Schnittstelle. 

Zuerst müssen wir wissen, wie ein einzelnes 
Byte übertragen wird. MIDI arbeitet als asyn- 
chrones, serielles Interface mit einer Übertra- 
gungsrate von 31,25 KBaud. Das bedeutet, daß 
nur jeweils ein Bit übermittelt werden kann 
und der Sender mit dem Empfänger nicht über 
gemeinsame Taktimpulse synchronisiert ist. 
Nachteil dieser Technik ist die begrenzte 


MIDI-Standard-Hardware 


Das Interface besteht aus Sende- und Emp- 
fangsteil. Beide haben eigene Buchsen, die 
mit MIDI IN (Empfang) und MIDI OUT (Sen- 
den) bezeichnet sind. Gelegentlich findet 


Vom UART 


Abdruck mit freundlicher 
Genehmigung der „Inter- 
national MIDI Users 


Group“ MIDI OUT 
Ba 


Optokoppler 


Übertragungsgeschwindigkeit. Andererseits 
besteht die Verbindung der Geräte aus nur 
zwei Leitungen, was den Verdrahtungs- und 
Steckeraufwand gering hält und "dadurch 
preiswerter ist. 

MIDI schreibt die Verwendung von fünfpoli- 
gen Standard-180-DIN-Steckern vor (Option: 
professionelle 3polige XLR-Stecker). Dadurch 
bleiben die Kosten für das Interface niedrig, so 
daß sein Einsatz bereits für relativ preiswerte 
Instrumente lohnt. 

Hauptkritikpunkt bei MIDI ist die geringe 
Übertragungsgeschwindigkeit, die bei einem 
größeren System durchaus ins Gewicht fällt. 
Andererseits bleibt die Übertragungsrate da- 
durch auch in einem Rahmen, der die Verar- 
beitung mit Heimcomputern möglich macht. 

MIDI-Daten werden in Gruppen von zehn Bit 
gesendet — je acht Bit plus ein Start- und ein 
Stopbit. Im Ruhezustand liegt die Übertra- 
gungsleitung auf +5 Volt (High). Der Beginn 
einer Übertragung wird dadurch signalisiert, 
daß die Leitung für eine 1-Bit-Periode auf O Volt 
geht (Startbit). Danach werden die acht Daten- 
bits gesendet — MSB (Most Significant Bit) 
zuerst, als Abschluß eine Periode von einer Bit- 
länge mit hohem Level (High). Für die Übertra- 
gung eines Byte werden also zehn Bitperioden 


man auch noch einen dritten, mit MIDI THRU 


bezeichneten Anschluß, der eine exakte Ko- 
pie der an MIDI IN empfangenen Daten lie- 
fert. Dadurch können Empfangsgeräte hinter- 
einandergeschaltet werden, ohne daß am 
Sender mehrere Ausgänge nötig sind. 


MIDI THRU 


Anmerkungen: 

l. Der in dieser Schaltung verwen- 
dete Optokoppler ist ein Sharp 
PC-900. (Mit geringen Änderungen 
können auch die Optokoppler 

HP 6N138 oder andere Typen ver- 
wendet werden.) 

c 2. Die Gatter „A“ sind IC-Opera- 
tionsverstärker oder Transistoren. 
3. Widerstände sollten nur fünf 
Prozent Abweichung haben. 
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gebraucht, eine Zeit von 10 Bit/31,25 KBaud = 
320 Microsekunden. Wie wichtig dieser Wert 
für MIDI-Programmierer ist, werden wir später 
in dieser Folge noch erfahren. 

Ist das Interface inaktiv, geht die Datenlei- 
tung auf High. Der Empfänger überwacht die 
Leitung bis zum Auftreten des ersten Low-Le- 
vels — also des Übertragungs-Startbits. Daran 
erkennt der Empfänger, daß ein Datenbyte ge- 
sendet werden soll und startet einen Zähler, 
der bis eineinhalb Perioden nach dem Startbit 
läuft. Nach Verstreichen dieser Zeit befindet 
sich der Empfänger in der Mitte der Periode 
mit dem MSB-Bit und kann exakt ermitteln, ob 
es Null oder Eins ist. Die nächsten Bits werden 
durch Weiterzählen um je eine Periode und je- 
weiliges Ermitteln des Low- oder High-Wertes 
bestimmt. 

Zum Abschluß wird das Stopbit auf High-Le- 
vel geprüft, um festzustellen, ob die Daten- 
gruppe korrekt vom Start- und Stopbit einge- 
faßt war. Bei dieser Übertragungsmethode 
müssen die Taktimpulse von Sender und Emp- 
fänger nicht exakt synchronisiert sein. Trotz- 
dem dürfen die Unterschiede zwischen den 
Taktzeiten nur gering sein. MIDI erlaubt eine 


Optokoppler 


Leuchtdiode Phototransistor 


Serielle Datenübertragung 


bei MIDI 


Abweichung von maximal einem Prozent. 

Wenn man den seriellen Aufbau bedenkt, ist 
das MIDI-Interface eigentlich relativ schnell 
(RS232 läuft mit einer Maximalgeschwindig- 
keit von 19,2 KBaud). Die Verbindungsleitun- 
gen dürfen daher nicht länger als 15 Meter 
sein, um die Anstiegs- und Abfallzeiten kurz zu 
halten. 

Zu diesem Zeitpunkt muß auf die Grenzen 
von MIDI hingewiesen werden, speziell die 
Übertragungsverzögerungen zwischen einzel- 
nen Instrumenten. Im allgemeinen besteht die 
Übertragung eines Ton-EIN/AUS-Befehls aus 
drei Bytes, dauert also 3*320 Mikrosekunden 
= 0,96 Millisekunden. Für den Fall eines viel- 
stimmigen Instrumentes, bei dem etwa zwan- 
zig solche Befehle gleichzeitig benötigt wer- 
den, bedeutet das: Der letzte Befehl erreicht 
das Gerät etwa 20 Millisekunden später als be- 
absichtigt. 

Viele im Echtzeitverfahren arbeitende Se- 
quenzer haben Zeitauflösungen bis hinunter 
zu drei bis vier Millisekunden und liegen da- 
mit unter der Wahrnehmungsschwelle. Eine 
Verzögerung von 20 Millisekunden ist jedoch 
für das menschliche Ohr bereits erkennbar. 


Die zweite Anforderung an eine MIDI- 
Schnittstelle besteht darin, daß die Eingangs- 
leitung vom Empfangsgerät elektrisch isoliert 
sein soll, um Schleifen im System zu vermei- 
den. Solche Schleifen machen sich durch ein 
störendes Brummen im Bereich der Netzfre- 
quenz unangenehm bemerkbar (50 Hz). Die- 
ses Problem kann mit einem sogenannten 
„Optokoppler“ bewältigt werden, ein Bauteil, 
bei dem Daten nicht elektrisch, sondern in 
Form von Licht übertragen werden können. 
Die beiden Eingangsleitungen des Opto- 


- kopplers sind mit einer Leuchtdiode verbun- 


den. Eine LED sendet bei einer positiv ange- 
legten Spannung Licht aus. Die Optokoppler- 
LED ist von außen nicht sichtbar, sondern be- 
leuchtet einen benachbarten Phototransistor, 
der bei Lichteinfall leitend wird. Das logische 
Signal am Eingang des Optokopplers (Low 
oder High) wird dadurch unverändert auf 
den Ausgang übertragen, ohne daß eine 
elektrische Verbindung besteht. 

Für MIDI ist festgelegt, daß die Koppler- 
LED zum Aufleuchten nur einen Strom von 
weniger als 5mA verwenden darf. Die An- 
stiegs- und Abfallzeiten am Ausgang sollten 
unter zwei Microsekunden liegen. 


DO — 
BIT (LSB) “ 


„na, 


20 Microsekunden 


Bilderrahmen 


In den nächsten beiden Artikeln sehen wir uns einige 
Fließkommaroutinen des Commodore 64 genauer an. Wir erstellen 
damit eine dreidimensionale Figur in hoher Auflösung. 


D: Fließkommaroutinen des BASIC-Inter- 
preters sind nicht sonderlich gut doku- 
mentiert. So fehlt beispielsweise die Tabelle 
der Einsprungadressen, und einzelne Routinen 
lassen sich nur durch mühsames Experimen- 
tieren finden. Wir führen unsere Untersuchung 
daher anhand einer praktischen Aufgabe 
durch: Wir rotieren deshalb eine dreidimensio- 
nale Rahmenfigur auf dem hochauflösenden 
Bildschirm. 

Die hier eingesetzten mathematischen Tech- 
niken lassen sich natürlich auch für andere 
Routinen einsetzen — beispielsweise bei der 
Matrixmultiplikation. Bedenken Sie aber, daß 
mathematische Berechnungen, die wegen der 
schnell aufeinanderfolgenden Bildschirmdar- 
stellungen in Echtzeit programmiert werden, 
nicht unbedingt beste Programmiertechnik 
sind. Es ist eleganter, erst alle Bildschirmdaten 
zu berechnen und dann die Bewegungsfolge 
auszulösen. 

BASIC-Variablen sind im Speicher über den 
BASIC-Programmen untergebracht. Sie befin- 
den sich in einer Variablentabelle, auf deren 
Anfang die Speicherstellen 45 und 46 (dezi- 
mal) zeigen. Die Anfangsadresse der Varia- 
blentabelle wird so gefunden: 

PEEK(45)+256*PEEK(46) 

Unsere Tabelle zeigt verschiedene Variablen- 
pointer mit ihrem normalen Inhalt. 

Beachten Sie, daß dynamische Strings im 
Speicher von oben nach unten abgelegt wer- 
den, während Arrays über den anderen Varia- 
blen der Variablentabelle gespeichert sind. 
Taucht während der Programmausführung 
eine neue Variable auf, verschiebt das Be- 
triebssystem den Arraybereich um die Anzahl 
Bytes nach oben, die die Variable benötigt. 

Die Speicherung von Strings ist komplizier- 
ter. Ganzzahlenvariablen (außerhalb von Ar- 
rays) und Fließkommavariablen belegen je 
sieben Bytes, Stringvariablen jedoch bis zu 255 
Bytes. Das Betriebssystem speichert daher nur 
die Stringlänge und einen Pointer auf die An- 
fangsadresse. Wenn in einem BASIC-Pro- 
gramm ein String definiert wird (etwa 
AS="ABCD"), dann zeigt der Pointer auf das 
erste Byte des Strings im BASIC-Programm- 
bereich. Ein String dieser Art heißt „statisch“. 
Wenn das Programm einen Stringwert ändert, 
wird der „dynamisch“. Die Werte dynamischer 
Strings werden von der Speicherobergrenze 
an abwärts angelegt und die Pointer der Va- 
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je nach Programmlänge 


je nach Variablenzahl 
je nach Arrayzahl/-größe 
je nach Stringzahl/-länge 
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rlablentabelle entsprechend verändert. Auf 
diese Weise hat jeder Eintrag die konstante 
Länge von sieben Bytes. 

Die Adresse einer Variablen in der Varia- 
blentabelle läßt sich mit ein wenig Detektivar- 
beit leicht finden. Nach Aufruf der Variablen 
wird ihre Adresse in einen Pointer der Zero 
Page geladen (dezimal 71 und 72), der dort un- 
tersucht werden kann. 

Das folgende Programm zeigt das Speicher- 
format der normalen Variablen. Die erste Rou- 
tine holt einen String aus dem Speicher und 
sieht sich mit der gerade beschriebenen Tech- 
nik den Inhalt der Adressen 71 und 72 an. Die 
Werte werden dann in zwei freien Bytes des 
Cassettenbuffers zur späteren Berechnung der 
Stringadresse gespeichert. 


1888 REM**FIND A STRING IN MEMORY** 
1818 xX$="ABCDEF" 

1828 REM**MAKE X$ CURRENT VARIABLE** 
1838 X$=X$+"" 

1848 REM**SAVE POINTER TO VAR TABLE** 
1858 POKE828,PEEK(71) :POKE829,PEEK(72) 
18658 REM**ADDRESS IN VAR TABLE** 

1878 ADR=PEEK(828) +256%*PEEK (829) 

1888 REM**LOOK AT ENTRY IN VAR TABLE** 
1898 LS=PEEK(ADR) :REM LENGTH OF STRING 
1188 SA=PEEK(ADR+1)+256*PEEK(ADR+2) 
1118 REM SA 15 START ADDR OF STRING 
1128 REM**NOW READ STRING** 

1138 FORI=SATOSA+LS 

1148 VAR$=VAR$+CHR$CPEEK(CIDI) 

1158 NEXT 

11688 PRINTVAR$ 


Normalerweise benötigen Ganzzahlenvaria- 
blen (zum Beispiel X%) weniger Speicher und 
beschleunigen außerdem mathematische Ab- 
läufe. Beim C 64 ist das jedoch nicht der Fall. 
Wenn das Commodore-BASIC Ganzzahlbe- 
rechnungen ausführt, wandelt es die Werte 
erst in das Fließkommaformat um und ruft 
dann die Fließkommaroutinen auf. Auf diese 
Weise belegen Ganzzahlvariablen, die eigent- 
lich mit zwei Bytes auskommen, sieben Spei- 
cherbytes (falls sie nicht in Arrays abgelegt 
sind). Bei der Weiterverarbeitung werden die 
zusätzlichen Bytes jedoch ignoriert. So können 
Sie eine Ganzzahl im Speicher finden: 
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eo 


Der Commodore 64 ar- 
beitet mit drei Varia- 
blentypen, die mit ver- 
schiedenen Formaten 
im Speicher Platz fin- 
den. Ganzzahlvariablen 
werden in zwei Bytes 
als Zweierkomplement 
gespeichert. Fließkom- 
mazahlen verlangen 
fünf Bytes für Mantisse, 
Vorzeichenbit und Ex- 
ponenten. Stringvaria- 
blen sind in einem an- 
deren Bereich des Spei- 
chers untergebracht 
und belegen ein Byte 
pro Zeichen. Die String- 
daten befinden sich je- 
doch nicht in der Va- 
riablentabelle. Dort ge- 
ben statt dessen drei 
Bytes die Zeichenzahl 
des Strings an, während 
eine 16-Bit-Adresse auf 
den Anfang des Strings 
im Speicher zeigt. 


1888 
1818 
1828 
1038 
1848 
1858 
1868 
1878 
1088 
1098 
1188 
1118 
1128 
1138 


REM**FIND AN INTEGER IN MEMORY** 
x7=3456 

REM&**MAKE X%4 CURRENT VARIABLE** 
XI=XH 

REM**SAVE POINTER TO VAR TABLE** 
POKE828 ,PEEK(71) :POKE829 ,PEEK(72) 
REM**ADDRESS IN VAR TABLE** 
ADR=PEEK (828) +256*PEEK (829) 
REM**LOOK AT ENTRY IN VAR TABLE** 
LO=PEEK(ADR+1) :HI=PEEK(ADR) 
REM**COMPUTE RESULT** 
SIGNBIT=(CHIAND1 28) 7/7128 
VAR=LO+258%*CHIAND127)-32768*SIGNBIT 
PRINT VAR 


Mit dieser Technik können Sie natürlich auch 
Fließkommavariablen suchen. Es gibt jedoch 
eine weit praktischere Methode. 

Das folgende Programm berechnet mit DEF 
FN die Adresse (in Speicherstelle 71 und 72) 
der aktuellen BASIC-Variablen. Da X eine 
Funktionsvariable ist, gibt die erzeugte 
Adresse die Speicherstelle des ersten Bytes 
von X in der BASIC-Variablentabelle wieder. 
Beim Aufruf von FN wird diese Adresse der 
Variablen ADD zugeordnet. Beachten Sie, daß 
die Übergabe von 0 (oder eines anderen Wer- 
tes) mit dem FN-Befehl den Wert von X in der 
Variablentabelle oder die von der Funktion be- 
rechnete Adresse nicht verändert. 


1088 
1818 
1828 
1838 
1848 
1858 
1848 
1878 
1888 
1898 
1188 
1118 
1128 


REM##FIND A FPVAR IN MEMORY** 

DEF FNADR(X)=PEEK(71)+256*PEEK (72) 
ADD=FNADR(B):REM ALWAYS RETURNS ADDRESS OF X 
x%=-3.14159 

REM#*CONVERT FROM BASE 2 TO DECIMAL 
POWERTWO=2* (PEEK(ADD)-129) 

SIGN=(-1)° CCPEEK(CADD+1 )AND128)/128) 
REM#FRACTION PART IS 31 BITS WIDE* 
DI=PEEK(ADD+1)ANDI127:REM 7 BITS 
D2=PEEK(ADD+2) :REM 8 BITS 

D3=PEEK(ADD+3) :D4=PEEK(ADD+4) 
REM**GULP!** 
FRACT=2*(-7)%*D1+2°(-15)%*D2+2°(-23)*D3+2° 
(-31)%*D4 

MANT=1+FRACT 

VAR=SIGN*POWERTWO*MANT 

PRINTVAR 


1138 
1148 
1150 


Die Ausführung eines DIM-Befehls reserviert 
im Speicher Platz für ein Array. Der reservierte 
Speicher enthält einen Kopf und die Anzahl 
der für die Arrayelemente abgestellten Bytes. 
Das Format von Arrayelementen unterscheidet 
sich von allen anderen Variablentypen. Unser 
Diagramm zeigt die möglichen Variationen. 
Wenn Sie Arrayelemente vom Maschinencode 


Array-Variablen 


Ganzzahlvariablen 


Hi-Byte der Lo-Byte der 
Ganzzahl Ganzzahl 


Byte 0 Byte 1 


Fließkommavariablen 


Binärexponent Vorzeichenbit AND 2 f 
Plus 128 Mantisse 1 (7 Bits) Mantisse 2 Mantisse 3 


Byte 0 Byte 1 


String-Variablen 


Byte 2 Byte 3 Byte 4 


Lo-Byte der Hi-Byte der 
u der Anfangs- Anfangs- 
eichen adresse des Strings fadresse des Strings 


Byte 0 Byte 1 


Byte 2 
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aus ansprechen wollen, müssen Sie diese Un- 
terschiede kennen. 

Sehen wir uns nun die Fließkommaarithme- 
tik genauer an. Bei der Ausführung von Fließ- 
kommaberechnungen speichert der BASIC-In- 
terpreter seine Ergebnisse in zwei „Fließkom- 
maakkumulatoren“ — FAC und ARG —, die das 
gleiche Format haben wie die im Speicher ab- 
gelegten Variablen. FAC befindet sich bei den 
Adressen $61 bis $65 (dezimal 97 bis 101) und 
ARG bei $69 bis $6D (dezimal 105 bis 109). Aus 
Gründen der Einfachheit werden wir auch 
weiterhin mit den Interpreterroutinen arbeiten, 
die die Zahlen zwischen FAC und dem ent- 
sprechenden Speicher übertragen. 


Hier sind die Routinen 


Wir verwenden folgende Interpreterroutinen: 
@® MOVFM (CALL Adresse $BBA2): 
MOVFM lädt den Inhalt von FAC mit der im 
Speicher abgelegten Fließkommavariablen. 
Symkolisch wird dieser Vorgang durch : - M 
dargestellt. Für den Aufruf wird der Akkumula- 
tor mit dem Lo-Byte der Anfangsadresse der 
Speichervariablen geladen und das Y-Register 
mit dem Hi-Byte. 
® MOVMF (CALL Adresse $BBD4): 
Diese Routine legt den Inhalt von FAC in sie- 
ben Speicherbytes ab (M - F). Für den Aufruf 
wird das X-Register mit dem Lo-Byte und Y mit 
dem Hi-Byte des Anfangsbytes der Variable im 
Speicher geladen. 
@® FMULT (CALL Adresse $BA2B): 
Diese Routine multipliziert den Inhalt von FAC 
mit einer zweiten Speichervariable und legt 
das Ergebnis in FAC ab. Die erste Variable 
wird mit MOVFM in FAC geladen. Wir zeigen 
auf die zweite Variable, indem wir vor Aufruf 
der Routine den Akkumulator mit dem Lo-Byte 
und Y mit dem Hi-Byte der Anfangsbytes la- 
den. Falls nötig, können wir das Ergebnis mit 
MOVMF wieder speichern. 
® FADD (CALL Adresse $B867): 
Diese Additionsroutine führt FAC=MEM+FAC 
aus. Für den Aufruf wird der Akkumulator mit 
dem Lo-Byte von MEM und Y mit dem Hi-Byte 
von MEM geladen. 
@© FSUB (CALL Adresse SB850): 
Diese Subtraktionsroutine führt FAC=MEM- 
FAC aus. Für den Aufruf wird der Akkumulator 
mit dem Lo-Byte von MEM und Y mit dem Hi- 
Byte von MEM geladen. 
Diese Interpreterroutinen bauen wir in die 
erste Phase unseres Grafikprogramms ein. 
Das Grafikprogramm arbeitet mit einer Um- 
rißfigur, die durch eine Reihe von Punkten und 
eine Matrix von Eckverbindungen festgelegt 
wird. Die Punkte haben die Koordinaten 
XI), YO),Z(O) — wobei I die Werte 1 bis NP (An- 
zahl der Punkte) durchlaufen kann. Die Matrix 
der Eckverbindungen ist EX(1J) — wobei I und 
] die Zahlen 1 bis NP durchlaufen können. 
E%(1,J) wird als Eins definiert, wenn Punkt I mit 


Punkt ] verbunden ist. Anderenfalls ist diese 
Variable Null. Natürlich wird dabei der Spei- 
cher nicht optimal eingesetzt (wir arbeiten mit 
zwei Bytes, obwohl eines ausreichen würde). 
Unsere Methode hat jedoch den Vorteil, daß 
sich die zu verbindenden Punkte leichter an- 
geben lassen. Außerdem kann der Wert von 
NP im praktischen Einsatz nie bemerkenswert 
hoch werden. 

Um die Rotationsroutine im Maschinencode 
von BASIC aus ansprechen zu können, geben 
wir die Basisadressen der Arrays mit POKE in 
den Speicher. Wir beginnen mit Element l und 
müssen daher die Adresse von X(1),Y(1),Z(1) 
und E%(1,1) finden. Weiterhin müssen wir den 
Maschinencode mit mehreren Angaben ver- 
sorgen: NP sowie COS und SIN des Rotations- 
winkels um die Achse Z. 

Bei der Entwicklung eines komplexen Ma- 
schinencodeprogramms lohnt es sich, in klei- 
nen Schritten vorzugehen, da sonst später viel 
Zeit für eine eventuelle Fehlersuche nötig ist. 
Wir haben das Projekt daher in drei Phasen 
geplant. Zunächst definieren wir die Algo- 
rithmen und schreiben ein Testprogramm in 
BASIC (BASIC-Rotationsprogramm). Es rotiert 
einen Würfel um die Z-Achse und bildet das 
Ergebnis auf den Ebenen X und Y ab. 


Gute Verbindung 
6 


E%(1,2)-1 zeigt an, daß 
eine Linie Punkt l und 
Punkt 2 verbindet. 


2 


(X2Y222) 


E%(1,8)—0 zeigt 
an, daß sich zwi- 
schen Punkt 1 
und 8 keine Linie 
befindet. 


(X1YLZ1) 


Unser Ziel ist es, dieses BASIC-Listing in 
Maschinencode zu übersetzen. Wir beschrei- 
ben zunächst jedoch eine Version der Subrou- 
tine bei Zeile 1800 im Maschinencode: das Pro- 
gramm I-ROTSUB. Der dritte Kasten enthält ein 
Programm, das I-ROTSUB testet. 

In der nächsten Folge vervollständigen wir 
das Projekt über die Fließkommaroutinen und 
die dreidimensionale Figur in hoher Auflösung 
und drucken den restlichen Assemblercode 
und ein BASIC-Ladeprogramm ab. 


PHA 
TXA JSR 
Das Programm I-ROTSUB Un LDA 
| | TYa LDY 
Assemblieren und laden Sie das folgende PHA aa 
Assemblerlisting und speichern Sie den ’ Iren 
Code unter I-ROT.HEX. al INITIALISE VARIABLES ++++ Ba 
1 Ih ad lan aa lbs lan an al aaa ah ch ei u 
a 1-ROTSUB 64 ” nee j ia 
1 Ih ala aha ch al alas ua eh sa STA XIHI LDY 
i++USES ARRAYS DEFINED ++ Ben JSR 
i++FROM BASIC ADDRESSES ++ er h LDX 
it+MUST BE POKED FIRST ++ Eat (Beat LDY 
| Al, al dh al ln ah al Ja al ah ll a a ah al a a ; STA YIHI JSR 
rel lau ;j++++PERFORM MEMI=X(1)*CS-YCI)*SN Re 
IXLO = $C103 H JSR 
IXHl = $C194 ya Lox 
nee = sc105 re Lor 
JSR MOVFM ; FAC = XI) 
A ha sei LDA CSLO 
| LDY CSHI 
aa ROTSUB VARIABLES ++ JSR FMULT 3; FAC = XCI)aCS ; A 
; VARIABLES CALLED FROM BASIC er BEQ 
XBASLO *=*+1 ; POKESESAB,XCO)LO . : 
XBASHI »=##+1 ; POKESBSB1 ,XCB>HI en ee 5 BRBINKLIIMEN 
YBASLO x*=*+1 ; POKES0582,Y(@)LO Bes : ; 
YBASHI »*=*+1 ; POKES05@3,Y(@)HI en a LDA 
NP *=*+1 ; POKES0584,NP LDA SNLO ’ CLC 
; VARIABLES USED BY WC ADC 
xILo “=#+l LDY SNHI ne 
Km u JSR FMULT ; FAC = YCI)xSN Ein 
YILO  s=##l LDA #<MEMI Kr 
YIHI ar Dr DIMERL HI 
Mg se JSR FSUB ; FAC = MEMI-FAC NG 
nö et LDX #<MEMI eh 
SAL haar LDY #>MEMI & 
PR JSR MOVMF ; MEMI= Fac u 
\ ; 
Se hai re en j++++PERFORM MEM2=Y(I) xCN+XCI)*SN es 
’ 
FAc =$0061 1 YNOHI 
LDA YILO 
ans =40069 en JMP 
;INTERPRETER ARITHMETIC CALLS SER OH 1 Men si j++++ PULL 
I 
ı FA LDY CSHI i 
u u Jar Ars ac = venca Bar, 
FSUB =$B850 ; FAC=MEM-FAC ee Tar 
BE e JSR MORE men= verrace % 
LDA XIL 
MOWMF  =&BBD4 ; MEMORY=FAC Ey Sınr PLA 
; : 
cite a an JSR MOVFM ; FAC = xc1) ; se 
; LDA SNLO > 


; 
jt+++PERFORM X(I) 


—D- 


Das Programm ROTSUB 
rotiert einen durchsich- 
tigen Würfel in der 
hochauflösenden Grafik 
des Commodore 64. Die 
Linien der Figur wer- 
den mit vier Arrays de- 
finiert. Drei davon hal- 
ten die X-, Y- und 
Z-Koordinaten jedes 
einzelnen Punktes. Das 
vierte Array - E%(‚) - 
definiert, welche der 
Punkte durch Linien 
miteinander verbunden 
werden. 


SNHI 
FMULT 
#<MEM2 
#>MEM2 
FADD 
#<MEM2 
#>MEM2 
MOUMF 


; FAC = XCII#SN 


ı FAC = MEMZ2+FAC 


; MEM2= FAC 
=MEMI ı YCI)»=MEM2 


#<MEMI 
#>MEMI 
MOVFM 
xıIL0O 
XIHI 
MOUMF 
#<MEM2 
#>MEM2 
MOUFM 
YıLO 
YIHI 
MOUMF 


; FAC =MEMI 
} XCII=FAC 
; FAC =MEM2 


; YEID=FAC 


; 
jr+++TEST END LOOP 


NP 
EXIT 


3 
3j++++INCREMENT ARRAY POINTERS 


START 
REGISTERS OFF STACK ++++ 
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Rotationsprogramm in BASIC 


1988 REM** BASIC ROTATING CUBE** 

1918 IFA=ATHENA=1 :LOAD"PLOTSUB.HEX" ‚8,1 
1828 IFA=1THENA=2:LOAD"LINESUB.HEX" „8,1 
1838 REM**DIMENSION ARRAYS** 

1048 NP=8:REM NUMBER OF POINTS 

1858 DIM X(NP) ,YCNP) ,ZCNP) 

1888 DIM ED(NP,NP):REM EDGE CONNECTIONS 
1878 REM**INITIALISE ARRAYS** 

18868 REM--CUBE COORDINATE DATA 

1898 DATA 75, 75, 75:REM 

1188 DATA -75, 75, 75:REM TOP FOUR /2 
1118 DATA -75,-75, 75:REM POINTS 73 
1128 DATA 75,-75, 75:REM--- -74 
1138 DATA 75, 75,-75: 

1148 DATA -75, 75,-75:REM BOT FOUR /6 
1158 DATA -75,-75,-75:REM POINTS 77 
1168 DATA 75,-75,-75:REM----------/8 
1178 REM%*ROTATE CUBE ABOUT X-AXIS 1/4 
1188 FORI=1TONP „ 

1198 READXCI),YCI),ZCI) 

1288 YCI)=YCI)xCOSCH/4)-ZCI)xSINCH/4) 
1219 ZCII=ZCIIKCOSCH/4)+YCIIASINCH/4) 
1228 NEXT 

1238 REM**ROTATE CUBE ABOUT Z-AXIS 174 
1248 FORI=1TONP 

1258 XCII=XC1I*COSCH/4)-YCIIASINCH/4) 
1268 YCII=YCLIKCOSCH/4)+XCIIRSINCH/A) 
1278 NEXT 

1288 REM--EDGE CONNECTION DATA-- 

1298 :REM 1 CONNECTED TO 2 
1398 :E(3,4)=1:E(4,1)=1 

1318 :REM BOT SQUARE 

1328 :E(7,8)=1:E(8,5)=5 

1338 :REM TOP TO BOT EDGES 
1348 E(6,2)=1:E(7,3)=1:E(8,4)=1 

1359 REM**SYMMETRISE E(1,J)** 

1368 FORI=1TONP:FORJ=1TONP 

1370 IFECI,JI=1THENE(J,D=1 

1388 NEXT :NEXT 

1399 REMHHHHHHHHHHHRHHHHHRRHHH 

1488 REM#HPLOT ROTATING CUBE## 


Testprogramm für I-ROTSUB 


1458 
1458 
1478 
1488 
1498 


SA=2*1/45 

FOR A=1/4 TO 1/4+2x1 STEP SA 
GOSUB1888:REM ROTATE THRU SA 
GOSUB15F8:REM INIT/CLEAR SCREEN 
REM--PLOT CUBE-- 

FORI=1TONP 

FORJ=1TOI 

IF EC1,J)=@THEN1518:REM NOT JOINED 
GOSUB1638:REM COMPUTE PROJECTION 
GOSUB1678:REM JOIN POINTS 


NEXT A:REM NEXT ANGLE 
REMHHHHHHHHHHHHHHHHH HH HH HH 
REM**WAIT** 

GETA$ : IFA$=" "THEN1568 
GOSUB1768:REM RESET SCREEN 

END 

REM**SETUP HIRES** 
POKE49488,1:POKE49489 ,1 
POKE49418,1:SYS49422 

RETURN 

REM**COMPUTE PROJECTION ON HIRES** 
X1XY=X(1)+159:Y1%=199-(2C1I)+108) 
X24=X(J)+159:Y2%=199-(2(J)+100) 
RETURN 

REM**LINESUB** 

IFCX1%=X2%) AND(Y1%=Y2%) THENRETURN 
MHI=INT (X1%/256) :MLO=X1%-256%MHI 
NHI=INT (X2%/ 256) :NLO=X2%-256%*NHI 
POKE49928 ‚MLO:POKE49921 ‚MHI 
POKE49922 ,NLO:POKE49923,NHI 
POKE49924 ,Y1%:POKE49925,Y2% 
SYS49934:REM LINESUB 

RETURN 

REM**RESET SCREEN** 
POKE49488,0:5YS49422 
PRINTCHR$(147) 

RETURN 

REM**ROTATE CUBE ABOUT Z-AX1S/SA 
FORI=1TONP 
XCI)=XCIIRCOSCSA)Y-YCIIRSINCSA) 
YCII=YCIIRCOSCSAI+XCIISINCSA) 
NEXT 

RETURN 


GOSUB1878:REM ROTATE THRU SA 
GOSUB1S88:REM INIT/CLEAR SCREEN 
REM--PLOT CUBE-- 

FORI=1TONP 

FORJ=1TOI 

IF ECI,J)=8THEN1528:REM NOT JOINED 


Geben Sie das folgende BASIC-Programm ein und 

speichern Sie es als TEST I-ROT. Achten Sie dar- Ra a en ee ee 
auf, daß zwischen der Ausführung von Zeile 1880 1528 NEXT :NEXT 

bis 2000 und dem Aufruf von SYS50523 keine Varia- es nn FEEE en 

ble definiert wird, da sonst die Gefahr des Pro- ee nn 
grammabsturzes bestünde. 1568 REM*xWAIT** 


157@ GETA$: IFA$=""THEN1S70 
1588 GOSUB1778:REM RESET SCREEN 


1598 END 

1008 REM+** TEST I-ROT x** 

1818 IFA=ATHENA=1: LOAD" PLOTSUB.HEX" 8.1 LOBBERENSESEULBAHIRE SER 

1628 IFA=1 THENAS2LOAD"LINESUBHEX= 901 1810 POKE49488,1:POKE49489 ‚1 
1 


1626 POKE49416,1:5Y$49422 


18368 IFA=2ZTHENA=3:LOAD" I-ROT.HEX", 


1848 REM**DIMENSION ARRAYS** 1630 RETURN 

1858 NP=8:REM NUMBER UF POINTS 1648 REM**COMPUTE PROJECTION ON HIRES** 
1868 DIM X(NP) „Y<NP) „ZENP) 1858 X1%=Xt1)+159:Y1%=199-(ZC1)+108) 
1876 DIM ED<NP,NP):REM EDGE CONNECTIONS 1668 X24=X()+159:Y24=199-C2C,J)+100) 
19886 REM**INITIALISE ARRAYS** 1878 RETURN 

1896 REM--CUBE COORDINATE DATA 1688 REM**LINESUB** 

1188 DATA 75, 75, ?5:REM---------- A 1898 IF(X1%=X2%)AND(CY1%=Y2%) THENRETURN 
1118 DATA -75, 75, 75:REM TOP FOUR /2 1768 MHI=INT(X1%/256) :MLO=X1%-256*MHI 
11208 DATA -75,-75, 75:REM POINTS 3 1718 NHI=INT(X2%7258) :NLO=X2%-258*NHI 
1138).DATA 7547-755, ZSIREN- = 4 1728 POKE49928 ‚„MLO:POKE49921 ,MHI 

1148 DATA 75, 75,-75:REM---------- +5 1738 POKE49922,NLO:POKE49923,NHI 

1158 DATA -75, 75,-75:REM BOT FOUR /& 1748 POKE49924,Y1%:POKE49925,Y2% 

1168 DATA -75,-75,-75:REM POINTS 77 1758 SYS49934:REM LINESUB 

1178 DATA 75,-75,-75:REM---------- /8 1788 RETURN 

1188 REM**ROTATE SPACE ABOUT X-AXIS 1/4 1770 REM**RESET SCREEN** 

1196 FÜRI=1TONP 1786 POKE49408,9:5Y549422 

12008 READXCIY,YCID,ZCI) 1798 PRINTCHR&(147) 

1218 YCld=YiI)RCOSCH/4)-2CI)#SINIT/A) 1808 RETURN 

1228 26 1I=2CI)RCOSCH/4)+YCIDRSINCN/A) 1818 REM**ROTATE CUBE ABOUT Z-AX1S/SA 
1238 NEXT 1826 FORI=1TONP 

1246 REM**RÜTATE SPACE ABOUT Z-AXIS 774 1838 XCI)=XCI)*CS-YCI)*SN 

1258 FORI=1TONP 1848 YCII=YCI)&CS+XCID#SN 

1246 KCLI=XCIIRCOSCH/4)-YELD#SINCT/A) 18508 NEXT 

12708 YCIDD=YCII)*COSCH/4)+XC I) SINCT/4) 1848 RETURN 

1288 NEXT 1878 REM**ROTATE ABOUT Z-AX1S/SA 

1298 REM--EDGE CONNECTION DATA-- 1888 X(1)=XC1):REM Xt1) CURRENT VAR 
13088 E(1,2)=1:REM I CONNECTED TO 2 1878 FOKES858® ,PEEK(?71) :REM XC1>LO 
1318 :E(3,4)=1:E(4,1)=1 1700 POKES@SB1 ,PEEK(72):REM XC1)HI, 
1328 :REM BOT SQUARE 1710 YCld=YCi):REM Yi1) CURRENT VAR 
1330 E(6,”)=1:E(7,8)=1:E(8,5)=5 1726 POKESAS#2,PEEK(71):REM Y{1)LO 
1348 E(5,1)=1:REM TOP TO BOT EDGES 1738 POKES®593,PEEK(7Z):REM YCIDHI 
1358 E(6,2)=1:E(7,3)=1:E(8,4)=1 1746 POKES45@4,NP:REM NUMBER OF POINTS 
1368 REM**SYMMETRISE E(1,J)** 1958 CS=CS:REM MAKE CS CURRENT VAR 
1376 FORI=1TONF:FORJ=1TONP 1968 POKES#589 ,PEEK(71) 

1388 IFECI,JD=1THENE(J,D=1 1978 POKESS1A,PEEK(72) 

1398 NEXT :NEXT 1986 SN=SN:REM MAKE SN CURRENT VAR 
140808 REMHHHHHRRHRHHHHRHHHHHHHH 1998 FOKESBS11,PEEK(71) 

1419 REM##PLOT ROTATING CUBE## 2898 POKESS12,PEEK(72) 

1428 SA=2*1/45:C05=C0S (SA) :SN=SIN{SA) 2018 SYS50523 

1436 FOR A=8 TO 2x1 STEP SA 2928 RETURN 
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Fachwörter von A bis Z 


Monitor = Monitor 

Als Hardwarebegriff wird die Be- 
zeichnung Monitor für ein Daten- 
sichtgerät verwendet, dessen Bild- 
röhre der eines normalen Fernseh- 
apparates entspricht. Die Elektronik 
ist jedoch speziell für die direkte 
Wiedergabe des Computer-Bild- 
signals ausgelegt. Daher bietet der 
Monitor eine erheblich höhere Bild- 
qualität als ein „zweckentfremdeter“ 
Fernsehempfänger, bei dem die In- 
formation ja erst einem hochfrequen- 
ten Träger aufmoduliert werden 
muß, um das übliche Antennensignal 
zu simulieren. 


Farbmonitore sind entweder für 


ein „Composite Video“ (=FBAS)- 
Signal oder für RGB-Signale einge- 
richtet. Beim RGB-Monitor werden 
die Farbanteile Rot, Grün und Blau 
über getrennte Leistungsadern und 
eine mehrpolige DIN- oder auch 
Euro-AV-Buchse zugeführt. Ein Com- 
posite-Video-Monitor empfängt statt 
dessen nur ein einziges Mischsignal, 
das im Gerät zur Gewinnung der 
Farbanteile decodiert werden muß. 
Der Anschluß erfolgt gewöhnlich 
über eine BNC-Buchse, wie sie bei 
Videorecordern gängig ist. Die Bild- 
qualität liegt bei den RGB-Monitoren 
durchweg eine Stufe höher als bei 
den Composite-Video-Geräten. ° 
Softwaremäßig versteht man unter 
„Monitor“ ein Systemprogramm, das 
Steuerungs- und Überwachungsauf- 
gaben wahrnimmt, vorzugsweise 
beim Abarbeiten von „Jobs“ im 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


Monochrom-Monitore 
haben meist einen grün 
oder bernsteinfarben 
leuchtenden Schirm, der 
die Augen auch bei län- 
gerem Arbeiten am 
Bildschirm nicht über- 
mäßig belastet. Farbmo- 
nitore gibt es in zwei 
Ausführungen: Bei den 
RGB-Monitoren werden 
die Farbanteile Rot, 
Grün und Blau getrennt 
übertragen, während die 
Composite-Video-Moni- 
tore mit einem einzigen 
Mischsignal arbeiten. 


Mehrbenutzerbetrieb. Der Monitor 
besorgt die Prioritätssteuerung, die 
Zuteilung von CPU- und Peripherie- 
zeiten an Simultanprogramme und 
koordiniert den Datenaustausch. Wo 
der Monitor für die Organisation des 
Gesamtsystems zuständig ist, wird er 
auch als „Supervisor“ oder Haupt- 
steuerprogramm bezeichnet. 


Motherboard = Hauptplatine 
Das Motherboard ist die Hauptpla- 
tine eines Computers. Darauf befin- 
den sich alle wesentlichen Kompo- 
nenten, etwa die CPU, ein Teil des 
Arbeitsspeichers und die Ein-/ 
Ausgabesteuerung. Das Mother- 
board trägt oftmals eine ganze Reihe 
von Steckleisten für Zusatzkarten. 
Als in der Frühzeit der Heimcom- 
puter die Beschäftigung mit Micros 
noch eine Domäne der Elektronik- 
bastler war, versuchten die Freaks, 
sich gegenseitig durch Einbau von 
Zusatzkarten zu übertrumpfen. Man- 


cher Apple platzte buchstäblich aus 
den Nähten, weil man ihn einfach zu 
sehr „vollgestopft“ hatte. Zwar gibt 
es das auch heute noch, aber das 
große Geschäft mit den Zusatzkarten 
spielt sich im kommerziellen Bereich 
ab, wo Personal Computer mit an- 
wenderspezifischen Sonderfunktio- 
nen ausgestattet werden sollen. 


Mouse = Maus 

Die Maus ist ein Eingabegerät, mit 

dem sich durch Hin- und Herfahren 
auf der Tischplatte der Cursor steu- 
ern läßt. Druckknöpfe auf der Maus 
ermöglichen das Auslösen definier- 
ter Rechneraktionen, wenn sich der 
Cursor über einem bestimmten Pik- 
togramm oder Menüdetail befindet. 

Eine solche Maus hat auf der Un- 
terseite eine bewegliche Kugel, de- 
ren Rotation sich über Reibrollen auf 
zwei Codierscheiben überträgt, die 
ihrerseits durch Lichtschranken ab- 
gefragt werden. So wird die Bewe- 
gung der Maus in eine elektrische 
Impulsfolge umgesetzt und an den 
Rechner übermittelt. 

Noch vor zwei Jahren galt die 
Maussteuerung in Fachkreisen als 
reine Spielerei. Durch den Erfolg 
des Apple Macintosh erkannte die 
Industrie die Vorteile dieses Einga- 
begeräts und begann, für immer 
mehr Rechner sogenannte „Maus- 
Pakete“ zu produzieren. 

Etwas ganz anderes sind die „in- 
telligenten“ Robotermäuse, die sich 
in einem unbekannten Labyrinth zu- 
rechtfinden. Sie verfügen über ein 
Sensorsystem für das Erkennen von 
Hindernissen und sind entweder mit 
einer eigenen Steuerlogik ausgestat- 
tet oder sie hängen an einem Rech- 
ner, der das „Denken“ für sie über- 
nimmt. Die Maus fährt durch das 
Labyrinth, bis sie irgendwo anstößt, 
und versucht dann, den Ausgang zu 
finden. 


Bildnachweise 

1877: Paul Bryant 

1878-1879, 1882: Caroline Clayton 
1883: Dimension Graphics 

1885: Marcus Wilson-Smith 
1888-1895: Rolf Seiffe 

1896, 1897: Ian McKinnell 

1898, 1899, U3: Kevin Jones 
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Klänge vom Chip 


Wichtig für Musikfreunde: Wir beschreiben 
den Aufbau eines MIDI-Interface für den 
Commodore C 64 und den Acorn B. 


B Dog and Bucket 


Das vollständige Listing dieses Spiels mit 
genauen Erläuterungen. 


Das hohe C 

Die Programmiersprache C weist erstaun- 
liche Parallelen zu PASCAL auf, etwa bei 
Schleifenstrukturen. 


Ku Fürs Heimkino 
Pioneers PX-7 verfügt über „audio- 


visuelle“ Schnittstellen, so daß unter 
anderem auch Bildplatten angesteuert 
werden können. 


